“Calhoun 


Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


2004-06 


Suitability of the SRC-6E reconfigurable 
computing system for generating false radar image 


Macklin, Kendrick R. 


Monterey, California. Naval Postgraduate School 
http://hdl.handle.net/10945/1547 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 


\§ D U DL EY research materials and institutional publications created by the NPS community. 
«iit Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


NNN KNOX appointed -- and published -- scholarly author. 


LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 


http://www.nps.edu/library Monterey, California USA 93943 





NAVAL 
POSTGRADUATE 
SCHOOL 


MONTEREY, CALIFORNIA 


THESIS 





SUITABILITY OF THE SRC-6E RECONFIGURABLE 
COMPUTING SYSTEM 
FOR GENERATING FALSE RADAR IMAGES 


by 
Kendrick R. Macklin 


June 2004 


Thesis Advisor: Neil Rowe 
Second Reader: Douglas Fouts 





Approved for public release; distribution is unlimited 


THIS PAGE INTENTIONALLY LEFT BLANK 


REPORT DOCUMENTATION PAGE Form Approved OMB No. 
0704-0188 


Public reporting burden for this collection of information is estimated to average 1 hour per 
response, including the time for reviewing instruction, searching existing data sources, gath- 
ering and maintaining the data needed, and completing and reviewing the collection of informa- 
tion. Send comments regarding this burden estimate or any other aspect of this collection of 
information, including suggestions for reducing this burden, to Washington headquarters Ser- 
vices, Directorate for Information Operations and Reports, 1215 Jefferson Davis Highway, Suite 
1204, Arlington, VA 22202-4302, and to the Office of Management and Budget, Paperwork Reduction 
Project (0704-0188) Washington DC 20503. 


1. AGENCY USE ONLY (Leave blank) 2. REPORT DATE 3. REPORT TYPE AND DATES COVERED 
June 2004 Master’s Thesis 

4. TITLE AND SUBTITLE: Suitability of the SRC-6E Recon- 5. FUNDING NUMBERS 

figurable Computing System for Generating False Radar 








Images 

6. AUTHOR(S) Kendrick R. Macklin 

7. PERFORMING ORGANIZATION NAME(S) AND ADDRESS (ES) 8. PERFORMING ORGANIZATION 
Naval Postgraduate School REPORT NUMBER 


Monterey, CA 93943-5000 


9. SPONSORING /MONITORING AGENCY NAME(S) AND ADDRESS(ES) 10. SPONSORING/MONITORING 
N/A AGENCY REPORT NUMBER 


11. SUPPLEMENTARY NOTES The views expressed in this thesis are those of the author and do 
not reflect the official policy or position of the Department of Defense or the U.S. Government. 


12a. DISTRIBUTION / AVAILABILITY STATEMENT 12b. DISTRIBUTION CODE 
Approved for public release; distribution is unlimited 


13. ABSTRACT (maximum 200 words) 








This thesis evaluates the usefulness of the SRC-6E reconfigurable computing 





system for a radar signal processing application and documents the process of creat- 


ing and importing VHDL code to configure the user definable logic on the SRC-6E. 








research builds on previous work which implemented a false radar imaging algorithm on 





the SRC-6E. Data from alternative computational approaches to the same problem ar 








compared to determine th ffectiveness of SRC-6E solution. The results show that 








the SRC-6E provides and effective solution for implementations with greater than 64 


range bins. An evaluation of the SRC-6E difficulty of use is conducted, including a 








discussion of required skills, experience and development times. The algorithm test 


code is included in the appendices. 


14. SUBJECT TERMS 15. NUMBER OF 
Benchmark, Reconfigurable Computing, VHDL, SRC-6E, FPGA, False Radar PAGES 149 


Target Synthesis 
16. PRICE CODE 


17. SECURITY 18. SECURITY 19. SECURITY 20. LIMITATION 
CLASSIFICATION OF CLASSIFICATION OF THIS CLASSIFICATION OF OF ABSTRACT 
REPORT PAGE ABSTRACT 
Unclassified Unclassified Unclassified UL 
NSN 7540-01-280-5500 Standard Form 298 (Rev. 2-89) 
Prescribed by ANSI Std. 239-18 








THIS PAGE INTENTIONALLY LEFT BLANK 


ii 


Approved for public release; distribution is unlimited 


SUITABILITY OF THE SRC-6E RECONFIGURABLE COMPUTING SYSTEM 
FOR GENERATING FALSE RADAR IMAGES 


Kendrick R. Macklin 
Lieutenant, United States Navy 
B.S., San Diego State University, 1997 
M.S., Naval Postgraduate School, 2003 











Submitted in partial fulfillment of the 
requirements for the degree of 


MASTER OF SCIENCE IN COMPUTER SCIENCE 
from the 


NAVAL POSTGRADUATE SCHOOL 
June 2004 


Author: Kendrick R. Macklin 


Approved by: Neil Rowe 
Thesis Advisor 


Douglas Fouts 
Second Reader 


Peter Denning 
Chairman, Department of Computer Science 


PLL 


THIS PAGE INTENTIONALLY LEFT BLANK 


iv 


ABSTRACT 


This thesis evaluates the usefulness of the SRC-6E re- 





configurable computing system, a particular kind of spe- 


cialized computer, for the radar-signal processing applica- 





tion of generating false radar images. It documents the 
process of creating and importing VHDL code to configure 


the user definable logic on the SRC-6E, building on previ- 








ous work for the SRC-6E. Data from alternative computa- 


tional approaches to the same problem are compared to de- 





termine th ffectiveness of a SRC-6E solution. The re- 





sults show that the SRC-6E provides no advantage until the 





task is made significantly complex; for this application, 














this was at greater than 64 range bins. This supports the 





hypothesis that the algorithm requires too much initializa- 
tion effort to take much advantage of the parallel process- 
ing and pipelining of the SRC-6E. An evaluation of the 

SRC-6E difficulty of use is conducted, including a discus- 


Sion of required skills, experience and development times. 
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D3 INTRODUCTION AND SUMMARY OF RESEARCH 


A. PURPOSE 

The specific purpose of this research was to evaluate 
the performance, correctness, and ease of use of the SRC-6E 
reconfigurable computing system built by SRC Computers, 
Inc., for implementing false radar images. The more gen- 
eral purpose was to aid in establishing a broad base of 


knowledge on what types of applications are appropriate for 





implementation on this type of machine. The task of gener- 
ating false radar images provides a readily available yet 
suitably complex algorithm for implementation on the SRC- 
6h. The research builds on previous work [1]. The algo- 
rithm chosen was based on a custom chip design previously 


developed by a faculty/student research team at the Naval 





Postgraduate School which creates false target radar im- 
ages. A C language program, written by Professor Douglas 


Fouts, was also available to use as a standard for compar- 





ing the accuracy of results throughout the research. 
B. SUMMARY OF RESEARCH 
Reconfigurable computing is defined as "the capability 


of reprogramming hardware to execute logic that is designed 








and optimized for a specific user’s algorithms" [2]. The 


SRC-6E reconfigurable computer is a Linux-based system con- 





sisting of two sides labeled A and B which each contain 
motherboards holding dual Intel P3 Xeon 1-GHz processors, 


1.5 gigabytes of memory, and a SNAP interface card. The 





SNAP card is a custom interface card which plugs into a 


motherboard DIMM memory slot and provides connections to 





the MAP board which is located in a third section of the 


system. A single MAP board consists of two independent 


MAPs. MAP, a registered trademark of SRC Computers, Inc., 


is the name for the custom hardware. Each MAP consists of 





three Xilinx Virtex-II-series XC2V6000 FPGAs and 24 mega- 


bytes of memory. One of the FPGAs is reserved for control 





logic while the other two, available for user programs, are 
called "user logic". The memory is split into six equal 
banks, labeled A through F, of 4 megabytes each. The user 
FPGAS are connected to a fixed 100-MHz clock. 


Code written in the hardware description languages 


Verilog and/or VHDL can be ported to the SRC-6E with only 








minor changes. Several support files are required to help 
the code exploit the user logic. These files primarily de- 


scribe the interfaces to the code. The algorithm selected 





for the research described here was written in VHDL and 


converted for use on the SRC-6E. 





To evaluate th ffectiveness of the SRC-6E, timing 





data was collected from several implementations of the 





false radar target algorithm. The first implementation was 
the executable created on the SRC-6E which uses the recon- 


figurable user logic. The second implementation was a C 








program which performed the same functionality as the VHDL 
code. This code was compiled and executed on a 3-GHz Pen- 


tium 4 system, using 2 gigabytes of DIMM memory and the 





Windows XP Professional operating system. The machine used 
was the same one as the previous implementation to allow 
comparison of results. The third implementation was the 
same C program running on the 1-GHz Xeon processor on a 


Linux based SRC-6E, but not using the MAP. Several input 











data sets were used in testing. Each data value consisted 


of a 5-bit number, written as two hexadecimal digits, which 





represented an intercepted radar signal. Data sets con- 


2 


taining 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 
16284, 32786, 65536, 131072, 262144, and 500000 data values 








were used. Five timing runs were conducted for each data 


set on all three data sources. 


The timing data shows the SRC-6E MAP instruction exe- 





cution time is fast, even for very large data set sizes. 











However, the total execution time for the algorithm studied 





was disappointing. The extra time appeared to represent 
delays in the system to prepare and transfer the data in 


and out of the MAP. Nonetheless, comparison of the MAP exe- 





cution times for the previous 4-bin macro with the new 4- 
bin macro shows an improvement for large input set sizes, 
suggesting that a new interface design can be more effi- 
cient. Also, as input set size is increased, our timing 


results begin to converge. 





The SRC-6E has a relatively steep learning curve. 





There are a few examples in the documentation and a very 


little work using the system. The errors generated by the 





system during development are not intuitive and cannot be 


solved without previous experience with solving the same 


errors. There are no development tools in place to assist 
novice users in programming the system. So this is another 
factor to consider in selecting it for use. But for high 











performance on large data sets, it still appears desirable. 
Cc. REMAINING CHAPTER OUTLINE 


The following outlines the remaining chapters which 





roughly follow the major steps that were taken throughout 


the research: 


e Chapter II provides background information and 
review of previous research. 





e Chapter III discusses the SRC-6E architecture, 
programming environment, and documentation. 
3 




















Chapter IV discusses modifications to the origi- 
nal VHDL macro programmed using VHDL. 





Chapter V discusses porting the VHDL code to SRC- 
6E environment. 





Chapter VI presents the data collection methods 
and analysis. 











Chapter VII provides conclusions and future work 
recommendations. 





Appendix A contains the VHDL code for all range 
bin models. 








Appendix B contains the support files required to 
implement the VHDL code on the SRC-6E. 


II. BACKGROUND AND PREVIOUS WORK 


A. INTRODUCTION 
This chapter discusses background information and re- 


views previous work, including the basics of the false ra- 





dar imaging algorithm, the benefits and costs of pipelining 


the algorithm, use of the chip design and C program in both 





the current and previous research and gives an overview of 








the major steps taken to improve, expand and test the algo- 
rithm using the SRC-6E. 

B. FALSE TARGET RADAR IMAGING ALGORITHM 

The algorithm works by splitting a false target image into 
several range bins, as shown in Figure 1 where a ship is 


split into four range bins. 





Figure 1. False Target Radar Imaging Algorithm 





Usage 


Each range bin represents a portion of the vessel. 


Greater resolution can be achieved by having a greater num- 





ber of range bins for a given false target. Usually the 
radar-signal travel distance is different for each range 


bin. 


Based on knowledge of a ship’s radar image, an opera- 


tor can set phase rotation and gain constants for each 





range bin. The algorithm begins with the interception and 
sampling of an interrogating radar pulse. The sample phase 
is then rotated by adding a rotation constant to it. Next, 


the sine and cosine are calculated. The gain is then ap- 





plied to the results by multiplying by a gain value. The 


results of each range bin are then summed up to produce a 





radar reflection signal at a given time. With proper use, 
the ship can be made to appear in a false position, be of a 
different type of target, or to appear to be traveling with 
other ships. 
Cc. FALSE-TARGET RADAR-IMAGING CHIP DESIGN 

We used a custom chip design previously developed by a 


faculty/student research team at the Naval Postgraduate 





School which creates false target radar images. The false- 





target radar-imaging chip consists of a 6-stage pipeline to 





create a false radar reflection for a single range bin. 





Figure 2 shows the signal flow through the slightly simpli- 





fied version that was implemented during the previous re- 


search. 


Phase Inc Register 1 
Phase Sample 


) 5 5 


5 5 


5 
5 


LUT 
URB Gain oan Ue 
4 8 8 
Register 5 Register 7 Register 8 
5 8 8 
Register 6 Shifte Shifter 2 
4 Gain 13 


Previous 
Register 10 Range 
3 


Bin I 
LR13 1 











ies ol. 
13 


Register 9 











Previous 
Range 
Bin O 









Register Adder 2 Adder 3 Register 
ila 12 
17 ig ne 
Register 13 Register 14 CLR1L7 
Next Range /17 a Next Range 


Bin I 





PSVin | Control | psvout 
Logic 
ODVin ODVout 
Figure 2. False Target Radar Image Chip Signal 
Flow 
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The basic steps of the algorithm are performed as fol- 
lows: 


Is, The phase sample enters into register 3. 





2. The phase rotation value enters into register 1, 
is then loaded into register 2, and is then added to the 
phase sample at adder 1. The results are then loaded into 
register 4. 





oe The contents of register 4 enter the lookup table 
(LUT) and Sine and Cosine results are calculated. The re- 
mainder of the pipeline is split into two identical por- 
tions for each data result. The following steps outline 
the path for the Sine result. 

















4. The gain value enters at register 5, is then 
loaded to register 6, and proceeds to shifter 1 where it 
controls how the contents of register 7 are shifted before 
they proceed to register 9. This accomplishes modulo-2 
multiplication. 











Dir The result from a preceding range bin enters at 
register 11 and is added to the contents of register 9 in 
adder 2 before proceeding to register 13. 


6. The contents of register 13 are now available as 
output Q if this is the last range bin in the series or are 
sent to register 11 of a following range bin. 

















The control logic block receives signals URB (use 





range bin), PSVin (phase sample valid input), and ODVin 








(output data valid input). These signals are used to cre- 


ate the CLR13 (clear 13-bit register), CLR17 (clear 17-bit 








register), PSVout (phase sample valid output), and ODVout 
(output data valid output). 


The internal design of the control logic is shown in 





Figure 3. The CLR13 and CLR17 signals clear the register 








contents at the appropriate time in the pipelines when they 





do not contain valid data. This occurs during pipeline 


startup and shutdown. The PSVout signal shows the DRFM 





Signal is valid. The ODVout signal shows that outputs Q 
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and I contain valid data. The URB signal allows the opera- 





tor to disable a range bin. Figure 4 shows the signal flow 


when four range bins are connected together. 


PSVout 


PSVin 






ODVout 


Figure 3. Internal Design of the Control Logic 


D. FALSE-TARGET RADAR-IMAGING PROGRAM DESIGN 


A C language program simulating the chip, originally 





written by Professor Douglas Fouts, was used as a standard 


for comparing the accuracy of results throughout the re- 








search. It performs the same arithmetic calculations as the 





chip but uses nested-loop iterative structures instead of 


pipelines. While the chip requires a separate pipeline for 








each range bin, the program simply adds additional length 











to the appropriate arrays, trading off memory utilization 





for computational logic. Table 1 shows how the results of 


each of four range bins with an input of N samples are 





placed into the two dimensional array created by the pro- 
gram. Each row of the table is then summed up to produce 


the false target radar signal results. 
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ample Using Four Range Bins 
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Figure 4 Signal Flow for Four Cascaded Range 
Bins 
Bin 0 Bin 1 Bin 2 Bin 3 
Sample 1 0 0 0 
Results 
Sample 2 Sample 1 0 0 
Results Results 
Sample 3 Sample 2 Sample 1 0 
Results Results Results 
Sample 4 Sample 3 Sample 2 Sample 1 
Results Results Results Results 
Sample N Sample N-1 | Sample N-2 Sample N-3 
Results Results Results Results 
0 Sample N Sample N-1 Sample N-2 
Results Results Results 
0 0 Sample N Sample N-1 
Results Results 
0 0 0 Sample N 
Results 
Table 1. False-Target Radar-Imaging Program Ex- 





The program was used as both a trusted source for re- 





sults to test the research against as well as used in the 
timing comparisons in Chapter VI. 
E. BENEFIT AND COST OF PIPELINING ALGORITHMS 

The implementation of the false-radar imaging algo- 
rithm has each range bin’s function split over 5 pipeline 
stages. The output of each range bin is then chained into 


the next in the final pipeline stage. This section will 





discuss the benefits and costs of pipelining. 


1. Background 








Pipelining allows work that involves repetition to be 














performed in parallel, reducing the total completion time. 








It is most effective when the work can be separated into 





tasks of equal length. However, in reality, work seldom 


splits into subtasks of equal length. Since the completion 





time for each stage varies with the task it performs, some 


delay is required at the end of each stage, so that slower 





stages have time to complete their task before receiving 


new work. Each of these tasks then becomes a pipeline 











stage where a portion of the total job is performed for 
each item passing through the pipeline. Each stage re- 


ceives a result from the previous stage, performs its task, 





and then passes the new result to the next stage. 


For pipelining on a chip that involves arithmetic 


functions performed by a computer, each pipeline stage con- 





sists of the logic to perform the subtask and a register 





which stores the result until the next stage is ready for 








it. A clock performs coordination of th ntire pipelin 





by allowing the registers to all fill at the same tim 





The clock can only run as fast as the slowest pipeline 
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stage. The speed of each stage includes the time to com- 
plete the function as well as the delay time caused by the 
register itself. 

2. Pipeline Benefits 

Pipelines have two major benefits. First, as previ- 
ously discussed, they allow multiple repetitive tasks to be 


performed in parallel which reduces the total completion 








time. Second, pipelines can allow computer logic to run at 





a higher clock speed since they need not require more com- 








plex logic functions that require more time to complete. 

















When the total time required is longer than the desired 








clock speed, the function can be broken into smaller pieces 
and placed in a pipeline. 

3 Pipeline Costs 

Since functions can rarely be broken into equal sub- 


tasks and pipeline registers introduce some delay, the to- 








tal time to complete a function on a single data item by a 











pipeline will always be longer than the time to do it on 





that data item without a pipeline. However, when the func- 





tion must be repeated the pipeline can become efficient. 








The point where the pipeline becomes efficient can begin no 





sooner than when the number of repetitions exceeds the num- 
ber of stages. Also, if the function is not split up into 


fairly equal subtasks and/or the register delay is high, 











the onset of pipeline efficiency can be delayed even fur- 








ther. Pipeline speedup of a k-stage pipelined function 
over an equivalent non-pipelined function is defined as 
[313 


ris nk 
“TT, k+(n-l 





, where n is the number of repetitions. 
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The implementation of the false-radar imaging- 
algorithm has each range bin’s function split over five 


pipeline stages. The output of each range bin is then 





chained into the next in the final pipeline stage. This 











creates a complete pipeline length of N+4, where N is the 
number of range bins implemented. Figure 5 shows the 
pipeline speedup for the number of range bins implemented 


in this research, using N for k and number of samples for 


nN. 





Speedup for Number of Range Bins 


140.00 





120.00 





100.00 





80.00 





60.00 


Speedup 





40.00 
20.00 





0.00 





Number of Samples 








—-— 4 Bins —®—8 Bins —— 16 Bins —»<— 64 Bins —*— 128 Bins 

















Figure 5. Speedup vs. Number of Range Bins. 


The plots shows speedup increases as the number of 
samples is increased. For n>>k, maximum speedup of k is 


achieved, meaning k tasks are efficiently performed at the 








same time. For low n, the pipeline length is too long to 


be efficient. This phenomenon can be viewed in the data 


presented in Chapter VI. 
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F. SUMMARY OF NEW RESEARCH 
Previous work implemented and tested four range bins. 


For simplicity, the previous design passed all the range 





bin programming data with each new radar sample. However, 
this was inefficient since the programming data does not 
change over a given set of radar samples. For each 5-bit 


sample, 40 bits of repetitive programming data was reen- 





tered, (10 per range bin). The interface to the MAP con- 
Sists of 6 banks of 64-bits, of which at least one must be 


designated for output, leaving at most 320 bits for input. 





With the expansion to 16 range bins, half of the input 
bandwidth would have been consumed by unnecessary, repeti- 
tive programming data and further expansion beyond 16 bins 
would be impossible within the provided bandwidth. The 
current research implements 4-, 8-, 16-, 64- and 128-range 


bin versions using a new design which allows the program- 





ming data to be sent to the macro only once for each set of 


radar samples. 
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III. SRC-6E ARCHITECTURE AND SOFTWARE ENVIRONMENT 


A. INTRODUCTION 


This chapter provides an overview of the hardware, 
software, and documentation, of the SRC-6E reconfigurable 
computing system. 

B. SRC-6E HARDWARE OVERVIEW 
The SRC-6E computer consists of two independent Linux 


computers (labeled A and B) and a MAP board (see Figure 6). 


Microprocessor 
Side A 






MAP 7” 


Chassis | Microprocessor 


Side B 


BOPPPeeeeereerree 


Figure 6. SRC-6E System Diagram (After Ref. 4.) 


MAP, a registered trademark of SRC Computers, Inc., is the 
name of the custom reconfigurable hardware. Each independ- 
ent Linux computer contains a motherboard holding dual In- 
tel P3 Xeon 1-GHz processors, 1.5 gigabytes of memory, and 
a SNAP interface card. The SNAP card is a custom interface 


card which plugs into a motherboard DIMM memory slot and 





provides connections to the MAP board which is located in 


LS 


the MAP Chassis. A single MAP board consists of two inde- 
pendent MAPs. A block diagram of a single MAP is shown in 


Figure 7. A MAP consists of three Xilinx Virtex-IlI-series 





XC2V6000 FPGAs and 24 megabytes of memory (labeled OBM in 


Figure 7). 






96 Bit & 
Chain In iad 
Data sg MAP 
‘ os] 
U_Logic a Control 
FPGA User One —- FPGA User Two Processor 
96 Bit rad 
Chain Out Z 
Data 
Figure 7. MAP Interface Block Diagram (From Ref. 
4.) 
One of the FPGAs is reserved for control logic while the 





other two, available for user programs, are user logic. 


The OBM memory is split into six equal banks, labeled A 





through F, of 4 megabytes each. The user FPGAS are con- 
nected to a fixed 100-MHz clock which seems overly inflexi- 
ble. According to Xilinx product specification sheets, the 


Virtex-II-series FPGAs can run at clock speeds as low as 1 





MHz and upwards of 400 MHz [5]. Programmer control of the 


clock speed on the SRC-6E would make the system more flexi 
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ble. Each MAP also has a chain port which can be used for 


direct I/O to the user logic, but was not used during this 


research. 
Cc. SOFTWARE ENVIRONMENT 
1. Operating System 


The operating system for the SRC-6E is Red Hat Linux, 





and it has been augmented with custom drivers and libraries 


to support the MAP and SNAP hardware. The built-in graphi- 





cal text editor in Linux is called GEdit. Programmers ex- 





perienced with UNIX can use the standard line-text editors 





such as VI if they choose. Both contain the minimal func- 








tionality required of a text editor to write the required 





files for the SRC-6E. 
2. Programming Environment 
The programming environment for the SRC-6E is called 


Carte. Carte allows a user to write code in a high level 








language, either C or Fortran, that directly targets the 





user programmable FPGAs in the MAP. In addition, users can 
write their own macros using the hardware definition lan- 
guages Verilog and/or VHDL. At compile time, all user code 
and macros are linked together into a single executable 
file. Carte compiles for the Intel microprocessors as well 
as the MAP, and for both Fortran and C. Synplify Pro soft- 


ware by Synplicity, Inc. is used for FPGA place and rout- 





ing. This program normally runs under Windows version but 
is executed in the Linux environment using a Windows emula- 


tor called Wine. 


Since Carte relies on the built-in Linux editors, the 


SRC-6E programming environment does not have any of the 





modern features a programmer expects from editors available 


in products such as Microsoft’s Visual C++ or Borland’s J- 


17 


Builder. Lack of syntax and semantic error checking in the 
programming environment is a serious drawback when using 


this system. Some error messages are produced at compile 














time, but they are cryptic at best, especially for someone 





not familiar with the Linux environment. There are several 





file types which must interact during the compile process, 





as will be discussed in Chapter V. The intricate details 
of these files can be quite confusing and it is often dif- 
ficult to identify which file contains the problem based on 


the error messages given at compile time. Rudimentary 








checking of these files within a custom editor would 





greatly improve the entire programming process. 
D. MAJOR DOCUMENTATION 

Several documents come with the SRC-6E to aid in its 
programming. 

Ls SRC-6E C Programming Environment Guide 


Driver code must be developed to create the interfac 





to the user logic. This document describes how to write 





this code using the C language [6]. 
2. SRC-6E Fortran Programming Environment Guide 
Similar to the C Programming Environment Guide, this 
document describes how to write similar code using the For- 
tran language [7]. 
3. SRC-6E MAP Hardware Guide 


This document contains hardware implementation specif- 





ics of the MAP which are well below the level required for 





users to successfully program the SRC-6E [4]. 

4. SRC-6E MAP Macro Developers Guide 

This document discusses general information on the use 
of the Macro Data Sheet Library, including naming conven- 


tions, interfaces, fanout and combinatorial delays [8]. 


18 


5. Macro Data Sheet Library 
The library contains data sheets for all macros devel- 


oped by SRC for the SRC-6E. A list of all currently sup- 





ported macros is available in a technical note, Ref. 9. 
The macros can be used like regular function calls in the 
chosen programming environment language (C or Fortran). 
The macros include all basic math and logic functions cur- 
rently supported by the environment. There are also sev- 
eral support macros which include, among others, various 


macros for combining and splitting data structures. 
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IV. DEVELOPMENT AND TESTING IN VHDL WITH ALDEC 
ACTIVE-HDL 5.2 


A. INTRODUCTION 


This chapter describes our development of the false- 





target radar-imaging macros in VHDL before they were ported 








to the SRC-6E environment. The final code used to imple- 





ment 4 range bins in the previous research was a starting 





point and is hereafter referred to as the "old macro". De- 
velopment of the macros was performed in a Windows XP envi- 
ronment using Aldec Active-HDL 5.2 software. 
B. MODIFICATIONS TO PREVIOUS MACRO 

The old macro used two 64-bit inputs and a single 64- 
bit output. Assuming that a reduction in overhead would 


improve their efficiency, the new macros were developed to 





use only a single 64-bit input and output. Other modifica- 


tions included addition of the PRB and UNP signals and in- 








ternal connections of the URB signal within the range bins. 
4-, 8-, 16-, 64- and 128-range bin versions were created. 
The code for this section can be viewed in Appendix A. 

1. Overhead Reduction 

To reduce the input bandwidth, it was necessary to 
send in the programming data only once for each set of ra- 
dar samples. This was accomplished by complete redesign of 


the interface with implementation of the PRB and UNP sig- 








nals. These signals were present in the original chip de- 
Sign but were not implemented in the old macro. 
2. PRB Signal 


The PRB signal, which stands for "Program Range Bin," 





was originally intended to signal a specific range bin to 


accept new programming. As implemented in this interface, 





it signals the start of a programming sequence where four 
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range bins are programmed per clock cycle until all are 


programmed. 


Thus for the sixteen bin model it takes 4 





clock cycles to program all range bins. The PRB is delayed 





through a shift register which is appropriately sized for 


the number of range bins. Each group of four range bins 


beyond the first requires a bit. A three-bit shift regis- 


ter is used for the 16 range-bin macro, one bit for the 8 


range-bin macro, and no shift register is necessary for the 


4 range-bin macro. All range bins are sent programming 


data at th 





same time, but the delayed PRB signal causes 


only the appropriate group of range bins to load the data. 
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UNP Signal 


The UNP signal, which stands for "Use New Program- 


ming, 





was originally intended to signal each range bin one 


at a time to 





begin using its new programming. The UNP sig- 


nal was not implemented in the old macro. As implemented 


in the 


ously use 





mally low. 











new macros, it signals all range bins to simultane- 











their new programming. The UNP signal is nor- 


Taking the UNP signal high for one clock sig- 


nals the macro to use the new programming data previously 


loaded by a PRB programming sequence. 


4. 


URB Signal 


The old macro used a URB signal which stands for "Use 


Range Bin." 





Intended as a single bit for each range bin to 








Signal the control logic as to whether or not to use a par- 





ticular range bin, this signal is programmed during the PRB 


programming sequence. When low, the output of a range bin 





is not included in the overall output. The old macro as- 


sumed 


that al 





ll four range bins would be used and had this 





signal 


nal int 


tied high. The new macro designs have the URB sig- 








ternal] 


ly connected to allow its full intended use. 
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5. Experiments with Different Numbers of Range Bins 
The code for four range bins was created by instancing 


the original single range bin code and creating a new, more 





efficient interface. The signal flow of four range bins is 
shown in Figure 4. The code was verified by comparing the 
output to the C program run on the same data set. This 


model was created to draw a timing comparison between the 








old macro and the new design. This will determine if the 





reduction in the interface has any affect on the overall 


timing. 


A system with eight range bins was created by instanc- 


ing eight of the single range bins previously tested. This 





model was developed as an intermediate size for collection 





of timing data. 


A system with sixteen range bins was created by in- 


stancing sixteen of the single range bins with an appropri- 








ate interface. This model was the original goal of the new 





research. Through reduction of the interface overhead by 





1/3 and increase of the number of pipelines by a factor of 


4, it was hoped that the SRC-6E would show an improvement 





in timing as compared to the other benchmarks. 


A system with 64 range bins was created by instancing 





64 of the single range bins with an appropriate interface. 


This model was developed because of the unexpectedly low 








chip usage by the previous models which will be discussed 





in the next chapter. 








A system with 128 range bins was created by instancing 





128 of the single range bins with an appropriate interface. 





This model was developed after the 256 range bin model 


would not fit in the user logic area. 
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Vv. PORTING THE VHDL CODE TO THE SRC-6E 


A. INTRODUCTION 
This chapter discusses the porting of the VHDL code to 
the SRC-6E and the required support files. Also discussed 











are changes that were required to the original code to make 





it compatible with the SRC-6E. 
B. THE SRC-6E FILE TYPES 





The process of writing code to target the user logic 


requires several file types. To import a user macro from 











either VHDL or Verilog, five files must be created: .info, 


.box, .mc, .c, and the makefile. Using only the last 





three, one can write code that targets the user logic with- 








out a user-defined macro. Examples of these file types can 


be viewed in Appendix B, which contains the final versions 





of all the files used. 
1. .info 


This file type is required whenever a user macro is 





used. It contains the following information: 
° Macro name 
e Macro type - stateful, external, and pipelined 
e Latency - a number stating how many clock cycles 


before valid output is generated by the macro. 
e List of inputs and outputs 
2. . box 
This is also required only for a user-defined macro. 
It is a Verilog style description of the input and output 
variables of the macro. The Verilog description is neces- 
sary for both VHDL and Verilog macros. 


3. .mc 





This file type is for C code written to target the 


user logic. All code in this file will be implemented in 
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hardware along with the user macro. Using this file type, 
it is possible to write code for the hardware using only 


the high-level language C without using any user-defined 





macros. 
4. .c 
This file type is for regular C code which provides 


the interface between the operating system and the hardware 








code defined in the .mc file. Code implemented in this 





file is executed on the Xeon processors. 
5. makefile 
This file is used by the command “make” when all the 


files are compiled and linked. It contains all of the file 





names and paths used, as well as the desired final executa- 


ble name. Compiler flags and options can also be stated in 
this file. 
6. .vhd 


This file type is for VHDL macro files. In general, 





it is safest to merge multiple files into one. However, it 
is possible to build a program with separate files as long 
as they are listed in the proper order in the makefile. 


The compiler appears to be single-pass so the files must be 








in the order they are used, with the lowest-order file 





listed first. 
7. Other Types 
Two other file types can be used by users programming 


the user logic: .£, which is a Fortran file, and .v, which 








is a Verilog file. These file types were not used during 
this research. 
Cc. CODE DEVELOPMENT 

Porting of the macro code began with creation of the 
required support files previously mentioned. Modifying the 


support files from the old macro was fairly simple. Only 
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the .c interface file required a significant rewrite to 
match up with the new macro interface. The code went 
through three major versions and several revisions. 

1. Version 1.0 


The sixteen-range-bin VHDL code was imported to the 





SRC-6E. The required support files were generated by modi- 
fying the old macro files to support the new design; this 
proved trivial compared to the long trial-and-error process 
reported in the previous research. However, during the 
make process, the SRC-6E reported a final clock speed of 
78.5 MHz, well below the required minimum of 100 MHz. 





Without surprise due to the timing failure the generated 








executable did not produce the proper output. This version 





implemented the programming sequence using a finite-state 


machine with four states using only the UNP signal to reset 








the state to zero. While this version created the proper 








output with the Aldec software, it generated too much delay 
when implemented in hardware on the SRC-6E. 

2. Version 1.1 

An eight-range-bin version was created to reduce the 
macro complexity for troubleshooting. After verification 
in Aldec of the proper output it was compiled on the SRC- 
6B. This version reported a final clock speed of 84.6 MHz 
and also generated incorrect output. 

3. Version 1.2 

A four-range-bin version was created to further reduce 


the macro complexity for troubleshooting. After verifica- 








tion in Aldec of the proper output it was compiled on the 


SRC-6E. This version reported a final clock speed of 85.1 








MHz and also generated faulty output. Since the old macro 
had generated proper four-range-bins output on the SRC-6E 


it was determined that the finite state machine method 
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would not work on the SRC-6E, presumably due to the style 
of programming it and not failure of the SRC-6E. After 


discussion with SRC technical support, the need for a sim- 





pler more direct way of implementing the interface became 
apparent. 

4. Version 2.0 

Review of the actual functionality required by the 


state machine showed that the same tasks could be performed 





with simpler components. Since the states only changed in 





numerical order, one per clock, the same function could be 





performed with a counter. Since this would require a sig- 
nificant redesign, a review of the original chip design was 


conducted to see if the macro implementation could be 








brought closer to the original design. During the review 








it was discovered that if the original PRB and UNP signals 


were implemented properly, a simple shift register could 





perform all of the necessary functions to direct the pro- 





gramming input as required. The new design was implemented 


and verified in Aldec to produce the proper output. After 








porting the new macro to the SRC-6E and modifying the .c 





file to support the new interface, the SRC-6E produced the 
proper sixteen-range-bin output for the first time. Fol- 
lowing the same basic design, new 8- and 4-range bin macros 
were rapidly created and verified. 


5. Version 3.0 





After unexpectedly low FPGA usage for the 8- and 16- 
bin macros, only 12% and 16%, a 64-bin macro was imple- 


mented. The new version demonstrated an FPGA usage of 38%; 





a 128-bin version demonstrated a usage of 68%. A 256-bin 














version was attempted but it would not fit within the user 


logic. 
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D. SYNTHESIZABLITY 
As noted in the original research, synthesizability 
was a problem during the design process. Synthesizability 


is a style of hardware description language programming 





which allows the available layout tools to properly convert 





the code for hardware implementation on an FPGA. During 





the design of the code, the Aldec software was only used to 








simulate the VHDL code. Therefore, it only tested the cod 








for functionality and did not consider if the code could 


actually be implemented in hardware. Problems with the 





state machine design resulted in synthesizability problems 





which were resolved with a redesign of the interface. The 








root cause of this was inexperience with both the VHDL lan- 
guage and the concept of synthesizability. 
E. FPGA UTILIZATION 

As previously noted, FPGA utilization was much lower 


than expected. Based on the 4-bin’s 10% usage, slightly 





over 20% and 40% wer xpected for the 8 and 16 bin models, 





based on linear scaling of the number of additional pipe- 





lines implemented by the two larger models. The observed 








12% and 16% usages show that the Xilinx software is per- 








forming some unexpected and very effective optimization of 


the VHDL code which causes the actual usage to be much 





lower than the original estimations. The 64- and 128-bin 





versions showed usage of 38% and 68%. A 256-bin version 


was attempted but after three days of compiling failed with 








a usage of 99% with a little over 500 signals left to 





route. Thus 256-bins almost fit within the user logic 




















area. However, it should be noted that this version had 





multiple timing failures resulting in a clock speed of only 
32.8 MHz which would not have produced correct results. 


Figure 8 is a plot of actual FGPA usage vs. the number of 
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bins. Two best fit plots, one exponential and one second 
order polynomial are added to predict the FPGA usage for 
macros with other numbers of bins. The polynomial curve 


seems to most closely match the actual data. 
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Figure 8. FPGA Usage 
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VI. PERFORMANCE RESULTS 


A. INTRODUCTION 

This chapter discusses the benchmarks, methods used 
for collection of data, and data analysis. 
B. BENCHMARK TEST PLATFORMS 

5 C Program Executed on a Windows-based Machine 

A C program was compiled and executed on an off-the- 
shelf 3-GHz Pentium 4 processor system with 2 gigabytes of 
RAM running the Windows XP Professional operating system. 


The primary reason for this benchmark was to draw a com- 





parison for cost effectiveness between the high-cost spe- 





cial-purpose SRC-6E system and a modern off-the-shelf gen- 





eral-purpose computer. The same computer that was used for 





the previous research was used to collect the new data. 
2. C Program Executed on the SRC-6E 
The same C program was also compiled and run directly 


on the SRC-6E without using any of the custom hardware. 





The data collected was based on the Linux operating system 
running on a 1-GHz Xeon 3 processor with 1.5 gigabytes of 
RAM. Although the system contains dual processors, only 
one thread was created while running the code and therefore 
it is believed that only one processor was used during the 


test. The primary reason for this benchmark was to test if 











the algorithm itself is suitable for implementation on the 








user logic. 

3. VHDL Code on the SRC-6E MAP 

The VHDL user macro and support files (shown in Appen- 
dix B) were also implemented and executed on the SRC-6E 


MAP. Two timing data results were collected from each of 





the runs, the total run time for th ntir xecution and 
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the time of execution on the MAP only. The two timing data 








results compare overhead time to actual execution on the 
MAP. 
C. TIMING DATA COLLECTION METHOD 

The data collection method used in this research was 
identical to the previous work to allow for direct compari- 
son of the results. The input data sets were composed to 


represent a stream of intercepted radar samples. Each data 





item consists of two hexadecimal characters representing a 











five-bit intercepted radar sample. The 32-sample-size data 


set is shown in Appendix B, which represents the decimal 





numbers 0 to 31 in order. All other-sized sample sets wer 








created by duplicating and repeating the same 32 samples in 





order. By doubling each previous sample set size the fol- 
lowing set sizes were created: 32, 64, 128, 256, 512, 

Lp O24,. 2/048, -4, 096) “6, Lo2, 16; 264, 32,786, 657536, 
131,072, and 262,144. The final set size of 500,000 was 








chosen as a convenient, large value that was close to the 
upper array size restriction allowed by the four megabytes 


of memory per bank on the SRC-6E. 


Data from all test platforms were collected in order 





of increasing input set size. The timing data was col- 
lected by running five consecutive runs of each input data 
set on each of the three benchmark platforms. The data for 


the Windows XP system were collected after a fresh reboot 





with all unnecessary programs closed. As noted in the pre- 
vious research, observation of the system usage during exe- 
cution of the code again showed that the processor and mem- 


ory were not fully used, never exceeding 54% usage during 





the 16-range-bin tests. The reasons why the processor did 


not appear to be fully used and the methods Windows uses to 
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measure performance are unknown. The SRC-6E system data 


were collected by running the executables on side A when no 





other users were using the system. 
D. TIMING DATA ANALYSIS 

1. Methods 

The timing data are displayed in two types of graphs 
for each range bin size. The first is the average total 
time each test platform takes for each data set. The aver- 
age is taken of the five data points for each input set 


size. The second is the average time per sample for each 











input set. First, the average is taken over the five data 











points and then it is divided by the input set size. All 








graphs are connected with straight line approximations be- 
tween data points. 
2. New Interface Timing Results 


Figure 9 shows the SRC MAP call average total time vs. 





input set size for each of the implemented range bin sizes. 





SRC MAP Call Average Time 














Time (Seconds) 
oO 
iS 








Lm mb © nb gk 9 © Sh ok & AV wb 
wh PP Ne Pe PB ah DP LP OP OM OS 
An a SO 0 SO SS oe es 


Number of Samples 











—?— Old 4 Bins —8— 4 Bins —-. 8 Bins —»<— 16 Bins —*— 64 Bins —@®— 128 Bins 











Figure 9. Comparison of MAP Call Average Time 
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The Old 4 Bins plot shows that the new macro interface is 








more efficient for large input set sizes. The 4 Bins plot 
shows a spike at 1024 samples, caused by a single unusually 
large time result in the data. The reason for this one 
slow result is unknown. 

3. 4 Range Bin Timing Results 


These results are very similar to those found in the 








previous research. Figure 10 shows the average total time 


for 4 range bins. 
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Figure 10. Average Total Time (4 Bins) 





All four curves are fairly constant up to the 16,284 sample 
Size. This result shows that, for small data set sizes, 
the overhead times inherent in the systems are much greater 


than the calculation times. We consider overhead to be all 











the data file read/write operations and memory accesses re- 
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quired to prepare the data for calculations. The SRC Macro 


MAP Call curve clearly shows the calculation time is insig- 





nificant compared to the total processing time. 


The SRC Macro MAP Call curve also shows the MAP execu- 





tion time is extremely fast, even for very large data set 





sizes. However, the SRC Macro Total curve shows the total 





execution time for the VHDL macro takes considerably 





longer. The extra time represents delays in the system to 


prepare and transfer the data in and out of the MAP which 





cause the SRC execution time to be longer for all input set 


sizes, initially by an order of magnitude. 





As the input set size is increased, we see the curves 


begin to converge. Figure 11 shows a comparison of the av- 








rage time per sample. Figure 12 shows the same data on a 


semi-log scale. 
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The overhead in the SRC Macro clearly dominates the graphs 


for smaller sample set sizes. However, for larger sample 





set sizes, the overhead time is amortized over the total 





time to be nearly insignificant. The SRC Macro Total time 





is approaching the other curves and presumably would even- 





tually meet them if the sample set size could be further 
increased. However, this is not possible with the current 
macro design due to the memory design of the SRC-6E hard- 


ware. 
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Pigure- 12. Average Time per Sample (4 Bins Semi- 
Log) 
4. Timing Results for Larger Numbers of Range Bins 
The results for 8 and 16 range bins are similar to 4 
range bins. Figure 13 shows the average total time for 8 
range bins. Figure 14 shows the average total time for 16 
bins. The macros still lack enough parallelism to be ef- 


fectively implemented on the SRC. However, it can be ob- 
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served that the SRC macro time is remaining the same as it 
was for 4 range bins, while the C program implemented on 


the Windows XP and SRC are becoming slower. 
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Figure 13. Average Total Time(8 Bins) 
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Figure 14. Average Total Time(16 Bins) 
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Figure 15 shows the average total time for 64 bins. 


For the first time, the SRC macro beats the SRC C program 





for all sample sizes, demonstrating that the macro imple- 











mentation is more efficient than the Xeon processor running 








at 1 GHz. At 500,000 inputs, the SRC macro also meets the 





Windows XP C program running at 3 GHz. Therefore, 64 range 
bins marks the lower bound for range bin implementation 


that can be run efficiently on the SRC-6E. 
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Figure 16 shows the average total time for 128 bins. 


The SRC macro beats the SRC C program again for all input 





sizes and by as much as an order of magnitude for large in- 


put sizes. 
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5. Contributors to Total Macro Execution Time 
Further analysis of the macro timing results show 
three major contributors to the total execution time: I/0 
overhead, MAP overhead, and the MAP call. Figure 17 shows 


the percentage of total exec 








ution time of the three con- 





tributors for the 4 range bin model. 


The graphs for the 


larger range bin models are very similar showing only that 


the relative contributions of the three factors are inde- 


pendent of the number of range bins implemented. We will 


the 











analyze each of three contributors independently to de- 





termine a final equation of the form T=I/0O,,+MAP,,,+MAPz,y - 


a. I/O Overhead 
We define I/O overhead to include all read and 


write access to the data files as well as the preparation of 





the input data for the macro and the output data for presenta- 


tion. Figure 18 shows I/O overhead is erratic for low num- 
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bers of inputs and independent of the number of range bins 


implemented for large input size. 
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Since overhead time is independent of the number 
of range bins, Figure 19 shows a plot of all I/O times for 
the 5 range bin models averaged together. A best-fit lin- 
ear curve is included, which has a corresponding equation 
of y=5.77x10°x-2.47x10°. The zero crossing represents an 


insignificant 2 msec so will be ignored for simplicity. 








Using more appropriate variable names the final equation 


becomes 170. =5.17x10 8; where S is the number of input sam- 


ples. 
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Figure 19. I/O Overhead Average Time 


b. MAP Overhead 
We define MAP overhead to be the sum of MAP allo- 


cation and deallocation times. Figure 20 shows that MAP 
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overhead is independent of the number of input samples and 


the number of range bins implemented. MAP allocation time 





appears random within the range of 0.481 - 0.700 seconds. 








MAP deallocation time appears random within the range of 








1.001 - 1.139 seconds. Relative to the other total time 








contributors, the range of the variation is quite small so 








an average value will be used as a constant in the final 
equation. Averages of all result sets yield 0.511 and 


1.019 seconds, for allocation and deallocation respec- 





tively, yielding an average total of 1.53 seconds for the 





MAP overhead constant. Thus MAP,, =1.53. 
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Figure 20. MAP Overhead Average Time 


c. MAP Call 


The MAP call time consists of the function call 





to the macro which is executed on the MAP. This includes 


the macro computation time as well as the input and output 
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data memory transfers to and from the OBM to the system 


memory. Figure 9 previously showed that the MAP call has a 





very small dependence, below 10 msec, on the number of im- 








plemented range bins which is insignificant when compared 
to the total execution time. Figure 9 also shows a small 


dependence, about 35 msec, on the number of input samples, 











which is also insignificant. The MAP call has a minimum 
execution time of 95 msec. For the final equation, we will 
use the average of all MAP call data resulting in a final 





constant of 0.102 seconds. Thus MAP, =0.102. 

d. The Final Equation 

Combining the three factors together yields the 
following equation where S is the number input samples: 


T =1/ Oo, + MAP,, + MAP, =5.77x10°S +1.53+ 0.102 = 5.77x 10° S +1.632 . 


Figure 17 shows that I/O overhead is insignificant below 








approximately 2000 input samples. In this range MAP, 


dominates the result yielding a constant value of approxi- 
mately 1.6 seconds. 
6. Conclusions 


The design of the VHDL macro running on the SRC-6E 








suffers from excessive overhead which makes it less effi- 
cient than the C program which performs the same calcula- 


tions for implementations below 64 range bins. Above 64 





range bins the macro is very efficient, even beating a Win- 


dows XP computer running at a clock speed 30 times higher 





under certain conditions. Total macro execution time in 


seconds can be estimated as T=5.77x10°S+1.632 where S is the 


number of input samples. 
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VII. CONCLUSIONS 


A. DIFFICULTY OF USE 


Programming the 


SRC-6E to use user-defined macros re- 





quires knowledge of high-level programming languages, hard- 


ware description languages, hardware component design, and 





synthesizability. Relatively few people possess all of 


these skills to use the system effectively without first 








receiving significant training. However, programming the 








system using only high-level languages of C or Fortran is 


possible which widens the potential user base to many more 








people. More research needs to be performed to determine 


which is most feasible for organizations using the machine. 


The SRC-6E has a relatively steep learning curve. 








There are few examples in the documentation and little work 





using the system. The errors generated by the system dur- 





ing development are not intuitive and cannot be solved 


without previous experience. The SRC support staff are 


very helpful in solving specific code problems but are not 





forthcoming in the reasons or methods used to resolve them. 


There are no development tools in place to assist novice 


users in programming 


The development 





system appears to be 


the system. 





time to implement solutions on this 


high, primarily due to the steep 


learning curve and lack of development tools. This re- 





search represents approximately six months of part-time 





work by a single mod 


rately experienced person. More re- 


search must be performed to further quantify the develop- 





ment time and see how it improves once a group of experi- 


enced repeat users is grown. No research has yet been per- 
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formed with large projects employing multiple programmers 
to see if the total project time can be reduced. 
B. APPROPRIATENESS OF THIS ALGORITHM FOR TESTING 


The implementation of the design with 64 or less range 





bins has been shown to lack the necessary parallelism to 





fully use the hardware and make it effective. Without in- 





creases in the memory size allocated for the user logic, 
implementation below 64 range bins on the SRC-6E is not ef- 


fective in terms of development time, processing time, or 








cost-effectiveness. 
Cc. APPROPRIATENESS OF THE SRC-6E FOR IMPLEMENTATION 
The SRC-6E user logic is tied to a fixed 100MHz clock 








which would limit the range resolution if it were used to 
implement an actual false target radar imaging system. 


Range resolution is defined as [10]: 


2, 
2 fu 


clock speed. With a clock speed of 100 MHz range resolu- 





where C is the speed of light, and f, is the 


tion is 1.5 meters. Ref [10] reports a system would re- 





quire at least a 500 MHz clock speed which results ina 
resolution of 0.3 meters necessary to fool modern radars. 


Maximum target size is defined as [10]: 


M,, =RpxNpp, where Np, is the number of range bins. 





Using 128 range bins results in a maximum target size 


of 192 meters. With an expected 200 range bins possible, 





300 meters is achievable. With the use of two user logic 
areas, over 400 range bins should be achievable, resulting 
in 600 meters. Future versions of reconfigureable com- 
puters using more modern FPGA’s with both larger sizes and 


faster clock speeds could make a workable false target ra- 





dar imaging system achievable with this type of technology. 
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D. RECOMMENDATIONS FOR FUTURE WORK 
The current interface allows scalability to any number 


of range bins in units of 4. 256 range bins have been 





shown to be too large to fit within the user logic while 








128 range bins fits with 68% usage. Future research could 
use more than one user logic chip to implement twice as 


many range bins. 


As discussed, the SRC-6E lacks a custom code editing 


environment with modern features such as real-time syntax 








checking. Automated generation of some of the support 





files could also be implemented. Tools could be created 


that ask a few questions and then create the skeletons of 





the support files for the project. Changes to one file 








that affect another could be automatically corrected or at 


a minimum generate warnings. 


The knowledge base of what types of applications do or 


do not work efficiently on this system is very small. Many 





more algorithms need to be tested on the system. Program- 


ming the same algorithm with both a high-level language and 








user macros would provide information on which produces 
better results for different types of algorithms. Cost and 
timing comparison to modern and readily available computers 


should continue to be made. 
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APPENDIX A 


This appendix contains the VHDL code that was both 


test 


full code is shown for 





port 


labeled to show the sec 


ted with Aldec Active-HDL and ported to the SRC-6E. 
the 


tion is shown for the other version. 


The 


4 bin version. Only the changed 





The 4 bin model is 





tion replaced by the other version’s 


























































































































code. 

A, 4 BIN MACRO VHDL 

-- Title FourBin 

library IEEE; 

use IBEE.STD LOGIC _1164.all1; 

entity DFlipFlop is 

port (CLK, LD, RESET, D: in bit; 

Q: inout bit; Qnot: out bit := '1'); 

end DFLipFlop; 

architecture Equations of DFlipFlop is 

begin 

process (CLK, LD, RESET) 

begin 

if CLK='1' and CLK'EVENT then 

if RESET='1' then 

O<= SON 7 

elsif LD='1' then 

Q <= D; 

end if; 

end if; 

end process; 

Qnot <= not Q; 

end Equations; 

entity Register5 is 

port (CLK,LD,RESET: in bit; D5: in bit vector (4 downto 0); 
Q5: inout bit vector (4 downto 0); 

Q5not: out bit vector (4 downto 0)); 

end Register5; 

architecture Register5 of Register5 is 

component DFlipFlop 

port (CLK, LD, RESET, D: in bit; 

Q: inout bit; Qnot: out bit); 

end component; 

begin 

DFFO: DFlipFlop port map (CLK, LD, RESET, D5(0), Q5(0), Q5not(0)); 
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DFF1: DFlipFlop port map (CLK, LD, RESET, D5(1), Q5(1), Q5not(1 
DFF2: DFlipFlop port map (CLK, LD, RESET, D5(2), Q5(2), Q5not(2 
DFF3: DFlipFlop port map (CLK, LD, RESET, D5(3), Q5(3), Q5not(3 
DFF4: DFlipFlop port map (CLK, LD, RESET, D5(4), Q5(4), Q5not(4 





end Register5; 


entity Register8 is 

port (CLK, LD, RESET: in bit; D8: in bit vector (7 downto 0); 
Q8: inout bit vector (7 downto 0); 

Q8not: out bit vector (7 downto 0)); 

end Registers; 




















architecture Register8 of Register8 is 
component DFlipFlop 
port (CLK, LD, RESET, D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 






























































begin 

DFFO: DFlipFlop port map (CLK, LD, RESET, D8(0), Q8(0), Q8not (0 
DFF1: DFlipFlop port map (CLK, LD, RESET, D8(1), Q8(1), Q8not(1 
DFF2: DFlipFlop port map (CLK, LD, RESET, D8(2), Q8(2), Q8not(2 
DFF3: DFlipFlop port map (CLK, LD, RESET, D8(3), Q8(3), Q8not (3 
DFF4: DFlipFlop port map (CLK, LD, RESET, D8(4), Q8(4), Q8not(4 
DFF5: DFlipFlop port map (CLK, LD, RESET, D8(5), Q8(5), Q8not(5 
DFF6: DFlipFlop port map (CLK, LD, RESET, D8(6), Q8(6), Q8not(6 
DFF7: DFlipFlop port map (CLK, LD, RESET, D8(7), Q8(7), Q8not(7 















































end Register8; 


entity Register13 is 

port (CLK, LD, RESET: in bit; D13: in bit vector (12 downto 0); 
Q13: inout bit vector (12 downto 0); 

Ql3not: out bit vector (12 downto 0)); 

end Registerl13; 




















architecture Registerl3 of Registerl3 is 
component DFlipFlop 
port (CLK, LD, RESET, D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 



































































































































begin 
DFFO: DFlipFlop port map (CLK, LD, RESET, D13(0), Q13(0), Q13no0 
DFF1: DFlipFlop port map (CLK, LD, RESET, D13(1), Q13(1), Q13no0 
DFF2: DFlipFlop port map (CLK, LD, RESET, D13(2), Q13(2), Q13no0 
DFF3: DFlipFlop port map (CLK, LD, RESET, D13(3), Q13(3), Q13no0 
DFF4: DFlipFlop port map (CLK, LD, RESET, D13(4), Q13(4), Q13no 
DFF5: DFlipFlop port map (CLK, LD, RESET, D13(5), Q13(5), Q13no0 
DFF6: DFlipFlop port map (CLK, LD, RESET, D13(6), Q13(6), Q13no0 
DFF7: DFlipFlop port map (CLK, LD, RESET, D13(7), Q13(7), Q13no 
DFF8: DFlipFlop port map (CLK, LD, RESET, D13(8), Q13(8), Q13no 
DFF9: DFlipFlop port map (CLK, LD, RESET, D13(9), Q13(9), Q13no0 
DFF10: DFlipFlop port map (CLK, LD, RESET, D13(10), Q13(10), 
Q13not(10)); 
DFF11: DFlipFlop port map (CLK, LD, RESET, D13(11), 9Q13(11), 
Ql3not(11)); 
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DFF12: 


DFlipFlop port map 


Ql3not(12)); 


end Registe 


r13; 


entity Registerl7 is 
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Q13 (12), 


port (CLK, LD, RESET: in bit; D17: in bit vector (16 downto 0); 
Ql7: inout bit vector (16 downto 0); 
Ql7not: out bit vector (16 downto 0)); 
end Registerl7; 
architecture Registerl7 of Registerl7 is 
component DFlipFlop 
port (CLK, LD, RESET,D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 
begin 
DFFO: DFlipFlop port map (CLK, LD, RESET, D17(0), Q17(0), Q17no 
DFF1: DFlipFlop port map (CLK, LD, RESET, D17(1), Q17(1), Q17no 
DFF2: DFlipFlop port map (CLK, LD, RESET, D17(2), Q17(2), Q17no 
DFF3: DFlipFlop port map (CLK, LD, RESET, D17(3), Q17(3), Q17no 
DFF4: DFlipFlop port map (CLK, LD, RESET, D17(4), Q17(4), Q17no 
DFF5: DFlipFlop port map (CLK, LD, RESET, D17(5), Q17(5), Q17no 
DFF6: DFlipFlop port map (CLK, LD, RESET, D17(6), Q17(6), Q17no 
DFF7: DFlipFlop port map (CLK, LD, RESET, D17(7), Q17(7), Q17no 
DFF8: DFlipFlop port map (CLK, LD, RESET, D17(8), Q17(8), Q17no 
DFF9: DFlipFlop port map (CLK, LD, RESET, D17(9), Q17(9), Q17no 
DFF10: DFlipFlop port map (CLK, LD, RESET, D17(10), Q17(10), 
Ql7not(10)); 
DFF11: DFlipFlop port map (CLK, LD, RESET, D17(11), Q17(11), 
Ql7not(11)); 
DFF12: DFlipFlop port map (CLK, LD, RESET, D17(12), Q17(12), 
Ql7not(12)); 
DFF13: DFlipFlop port map (CLK, LD, RESET, D17(13), Q17(13), 
Ql7not(13)); 
DFF14: DFlipFlop port map (CLK, LD, RESET, D17(14), Q17(14), 
Ql7not(14)); 
DFF15: DFlipFlop port map (CLK, LD, RESET, D17(15), Q17(15), 
Ql7not(15)); 
DFF16: DFlipFlop port map (CLK, LD, RESET, D17(16), Q17(16), 
Ql7not(16)); 
end Registerl7; 
entity ROMLUT is 
port (SIN, COS:out bit _vector(8 downto 1); 

FIVEBITS:in bit _vector(5 downto 1)); 
end ROMLUT; 
architecture ROMLUT of ROMLUT is 
signal ROMLUTValue bit _vector(15 downto 0); 
begin 
with FIVEBITS Select 


ROMLUTValue <="0000000001111111" when "00000", -- 





"0001100101111101" when "00001",--1 
"0011000101110101" when "00010",--2 
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"0100011101101010" 
"0101101001011010" 
"0110101001000111" 
"0111010100110001" 
"0111110100011001" 
"0111111100000000" 
"0111110111100111" 
"0111010111001111" 
"0110101010111001" 
"0101101010100110" 
"0100011110010110" 
"0011000110001011" 
"0001100110000011" 
"0000000010000001" 
"1110011110000011" 
"1100111110001011" 
"1011100110010110" 
"1010011010100110" 
"1001011010111001" 
"1000101111001111" 
"1000001111100111" 
"1000000100000000" 
"1000001100011001" 
"1000101100110001" 
"1001011001000111" 
"1010011001011010" 
"1011100101101010" 
"1100111101110101" 
"1110011101111101" 
"0000000000000000" 


SIN <= 
COS <= 
end ROMLUT; 





entity FullAdder is 








port (X, Y, Cin: 
Cout, Sum: out bit) 
end FullAdder; 
architecture 
begin 
Sum <= X xor Y xor 
Cout <= (X and Y) o 
end Equations; 
entity FullAdderov 
port (Ci, Cout, OVi 
Co, OVout: out bi 


end FullAdderOV; 





architecture 


Cout; 
t <= OVin or 
end Equations; 








ity Adder5 is 








when "00011",--3 
when "00100",--4 
when "00101",--5 
when "00110",--6 
when "00111",--7 
when "01000",--8 
when "01001",--9 
when "01010",--A 
when "01011",--b 
when "01100",--C 
when "01101",--d 
when "01110",--E 
when "01111",--F 
when "10000",--10 
when "10001",--11 
when "10010",--12 
when "10011",--13 
when "10100",--14 
when "10101",--15 
when "10110",--16 
when "10111",--17 
when "11000",--18 
when "11001",--19 
when "11010",--1A 
when "11011",--1b 
when "11100",--1C 
when "11101",--ld 
when "11110",--1E 
when "11111",--1F 
when others;--Never Occurs 





in bit; 


, 


ROMLUTValue(15 downto 8); 
ROMLUTValue(7 downto 0); 


Equations of FullAdder is 


Can? 

xr (X and Cin) or (Y and 
is 

n: in bit; 

t)e 


Equations of FullAdderoV is 


(Ci xor Cout); 


SZ 


Cin)? 


port 
Si 


(A, B: in bit _vector(4 downto 0); Ci: in bit; 
out bit _vector(4 downto 0); Co: out bit); 
end Adder5; 


architecture Adder5 of Adder5 is 
component FullAdder 

port 
Cout, 


(Rp Ve EL 


ne 


in bit; 


Sum: out bit); 
end component; 
signal C: bit _vector(4 downto 1); 
begin 
FAO: 
FAI: 
FA2: 
FA3: 
FA4: 
end Adder5; 


FullAdder 
FullAdder 
FullAdder 
FullAdder 
FullAdder 





entity CLAH4 i 
port 


Cou 


architec 


G: 


(A, B: in bit_vector(3 downto 0); Cin: in bit; 


port map ( 
port map ( 
port map ( 
port map ( 
port map ( 


Ss 


out bit); 
end CLAH4; 





signal gO, gl, 


PPP PP PP 





end CLAH4; 


Q 
= 
Q 


, 


. 
Q 
HR 


1, 


, 


, 





oe 


(0 
(1 
(2 
(3 
(4 


DBWWUwWwDW 
BwWNE OC 
. 

Q 


QQ 


LA 


x 


ture CLAH4 of CLAH4 is 


g2, G3, po, pl, p2, p3: bit; 


oomwvowvon Oo 
dD ue) 
Q. Q. 
w w 

Oe ie eae 


(p3 and g2) or (p3 and p2 and gl) 


entity CLAH8 is 


(A, B: in bit_vector(7 downto 0); Cin: in bit; 


port 
Cout: out bit); 
end CLAH8; 


and pl and pO and Cin); 


architecture CLAH8 of CLAH8 is 
signal gO, gl, 
bit; 





g2, 93, 94, 95, 96, g7, pO, pl, 

A(0O) and B(0O); 
A(0) or B(0O); 
A(1) and B(1); 
A(1) or B(1); 
A(2) and B(2); 
A(2) or B(2); 
A(3) and B(3); 
A(3) or B38); 
A(4) and B(4); 
A(4) or B(4); 


, 
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or 


p2, 


(p3 and p2 and pl and gO) 


03-4, ‘Poy. POF PIE 


or 









































g5 <= A(5) and B(5); 
po <= A(5) or B(5); 
g6é <= A(6) and B(6); 
po <= A(6) or B(6); 
g7 <= A(7) and B(7); 
p7 <= A(7) or B(7); 
Cout <= g7 or (p7 and g6) or (p7 and p6 and g5) or (p7 and pé and pd and g4) 
(p7 and p6 and pd and p4 and g3) or 
(p7 and p6 and pd and p4 and p3 and g2) or 
(p7 and p6 and pd and p4 and p3 and p2 and gl) or 
(p7 and p6 and pd and p4 and p3 and p2 and pl and gO) or 
(p7 and p6 and p5 and p4 and p3 and p2 and pl and pO and Cin); 
end CLAH8; 
entity Adderlé is 
port (A, B: in bit _vector(15 downto 0); Ci, OVin: in bit; 
S: out bit _vector(16 downto 0); Co: out bit); 
end Adderl6; --bit 16 of S is overflow 
architecture Adderl6é of Adderl6 is 
component CLAH4 
port (A, B: in bit _vector(3 downto 0); Cin: in bit 
Cout: out bit); 
end component; 
component CLAH8 
port (A, B: in bit _vector(7 downto 0); Cin: in bit 
Cout: out bit); 
end component; 
component FullAdder 
port (x, Y, ‘Cine “in: ‘bit; 
Cout, Sum: out bit); 
end component; 
component FullAdderov 
Port’, (Ci, Couty -OVins im. bit; 
Co, OVout: out bit); 
end component; 
signal C: bit _vector(16 downto 1); 
signal dummyl, dummy2, dummy3: bit; 
begin 
FAO: FullAdder port map (A(0), B(0), Ci, C(1), S(0)); 
FA1: FullAdder port map (A(1), B(1), C(1), C(2), S(1)); 
FA2: FullAdder port map (A(2), B(2), C(2), C(3), S(2)); 
FA3: FullAdder port map (A(3), B(3), C(3), dummyl, S(3)); 
CLAHO: CLAH4 port map (A(3 downto 0), B(3 downto 0), Ci, C(4)); 
FA4: FullAdder port map (A(4), B(4), C(4), C(5), S(4)); 
FA5: FullAdder port map (A(5), B(5), C(5), C(6), S(5)); 
FA6: FullAdder port map (A(6), B(6), C(6), C(7), S(6)); 
FA7: FullAdder port map (A(7), B(7), C(7), dummy2, S(7)); 
CLAH1: CLAH8 port map (A(7 downto 0), B(7 downto 0), Ci, C(8)); 
FA8: FullAdder port map (A(8), B(8), C(8), C(9), S(8)); 
FA9: FullAdder port map (A(9), Reet C(9), C(10), S(9)); 
FA10: FullAdder port map a B(10), C(10), C(11), S(10)); 
FA11: FullAdder port map (A(1 B(11), (11), dummy3, S(11)); 
CLAH2: CLAH4 port map (A(11 downts 8), (11 downto 8), C(8), C(12)); 
FA12: FullAdder port map (A(1 B(12), (12) ,°C:(13),  S(212)) 3 
FA13: FullAdder port map (A(1 B(13), (13)-7 -CCV4) es. 4S; (AB) 4 
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or 


FA14: FullAdde 
FA15: FullAdde 
FAOV: FullAdde 
end Adderl6; 


port map 
r port map 
rOV port map 


entity ControlLogic is 
port (ODVin, URB, PSVin, 





CLK, OPI 





ER: 


C(14), 
G(1S); 
OVin, 


CCl5).; 
C(16), 
Co, S( 


in bit; 





CLR13, CLR17: out bit 
end ControlLogic; 


"1'; ODVo 


ture Con 
t DFlipFlop 

port (CLK, LD, RESET, D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 

signal RES 
PSVD, PSVO, 
begin 
RESET 
PSVFF: 


architec 
componen 


























PSVOQNot: bit; 











<= 'O'; 
DFlipFlop port map 





(CLK, OP 


iy LP 


SVout: out bit); 


trolLogic of ControlLogic is 


ET,D1,Q01,Q1Not,D2,02,Q2Not, D3, 03, O3Not,D4,04,04Not, 








ER, R 


ES 





ET, PSVD, PSVQ, PSVONot); 








DFF1: ‘1K, OP 


ER, 


ES 


ET, Dl, Q1, Q1Not 





DFLipFlop port map(C 


, 





DFF2: DFLipFlop port map OP 


ER, 


ES 


ET, D2, Q2, Q2Not 





, 





DFF3: DFLipFlop port map OP 


ER, 


ES 


ET, D3, Q3, Q3Not); 





, 











(C 
(C 
DFF4: DFLipFlop port map(C OP 


ER, 


AHDWDD 





ES 





) 
) 
) 
) 


ET, D4, Q4, Q4Not 








PSVD <= PSVin; 

D1 <= URB and PSVQ; 
D2 <= Ql; 

D3 <= ODVin or Q2; 
D4 <= 03; 

CLR13 <= Q2Not; 
CLR17 <= Q3Not; 
PSVout <= PSVQ; 
ODVout <= Q4; 

end ControlLogic; 








enti 
port 
Data: in bit _vector(8 downto 1); 
Output: out bit _vector(13 downto 1 
end GainShifter; 





ty GainShifter is 








a 

begin 

process (Control, Data) 

begin 

Output (13 downto 1) <= "0000000000 
case Control is 

when "0000" => Output(3 downto 1) 
if Data(8)='1' then --need to pres 
Output (13 downto 4) <= "1111111111 
end if; 

when "0001" => Output(4 downto 1) 
if Data(8)='1' then --need to pres 
Output (13 downto 5) <= "111111111"; 
end if; 


when "0010" => Output(5 downto 1) 
if Data(8)='1' then --need to pres 





))3 


000"; 


<= Da 
erve 


We 
, 


<= Da 
erve 


, 


<= Da 
erve 
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, 


(Control:in bit _vector(4 downto 1); 


cchitecture GainShifter of GainShifter is 


ta(8 downto 6); 
the sign bit 


ta(8 downto 5); 
the sign bit 


ta(8 downto 4); 
the sign bit 





Output (13 downto 6) 
end if; 
when "0011" => Output(6 downto 1) 


<= "11111111"; 


<= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 7) <= "1111111"; 
end if; 


when "0100" => Output(6 downto 1) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 7) <= "1111111"; 

end if; 

when "0101" => Output(7 downto 1) <= Da 
if Data(8)='1' then --need to preserve 
Output (13 downto 8) <= "111111"; 

end if; 


when "0110" => Output(8 downto 1) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 9) <= "11111"; 
end if; 


when "0111" => Output(9 downto 2) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 10) <= "1111"; 
end if; 


when "1000" => Output(7 downto 1) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 8) <= "111111"; 
end if; 


when "1001" => Output(8 downto 1) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 9) <= "11111"; 
end if; 


when "1010" => Output(9 downto 2) <= Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 10) <= "1111"; 
end if; 


when "1011" => Output(10 downto 3) 





if Data(8)='1' then --need to preserve 
Output (13 downto 11) <= "111"; 
end if; 


when "1100" => Output(10 downto 3) <=Da 


if Data(8)='1' then --need to preserve 
Output(13 downto 11) <= "111"; 
end if; 


when "1101" => Output(1l1l downto 4) <=Da 


if Data(8)='1' then --need to preserve 
Output (13 downto 12) <= "11"; 
end if; 


when "1110" => Output(12 downto 5) <=Da 





if Data(8)='1' then --need to preserve 
Output (13) <= '1'; 

end if; 

when "1111" => Output(13 downto 6) <=Da 
when others => -- summon blue screen of 


end case; 

end process; 

end GainShifter; 
entity OneBin is 
port (PhaseSamp, 
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ta(8 downto 3); 
the sign bit 


ta(8 downto 3); 
the sign bit 


ta(8 downto 2); 
the sign bit 


ta(8 downto 1); 
the sign bit 


ta(8 downto 1); 
the sign bit 


ta(8 downto 2); 
the sign bit 


ta(8 downto 1); 
the sign bit 


ta(8 downto 1); 
the sign bit 





<= Data(8 downto 1); 


the sign bit 


ta(8 downto 1); 
the sign bit 


ta(8 downto 1); 
the sign bit 


ta(8 downto 1); 
the sign bit 





ta(8 downto 1); 
death 


PhaseInc: in bit vector (5 downto 1); 


Gain: in bit vector (4 downto 1); 

URB, UNP, PRB, ODVin, PSVin: in bit; 

OtherBinDataSIN, OtherBinDataCOS: in bit vector (17 downto 1); 
Q, I: out bit vector (17 downto 1); 

ODVout, PSVout: out bit; 

DRFM: out bit vector (5 downto 1); 

CLK: in bit); 
end OneBin; 





architecture OneBin of OneBin is 
component Register5 is 
port (CLK, LD, RESET: in bit; D5: in bit vector (4 downto 0); 
Q5: inout bit vector (4 downto 0); Q5not: out bit vector (4 downto 0)); 
end component; 
component Register8 is 
port (CLK, LD, RESET: in bit; D8: in bit vector (7 downto 0); 
Q8: inout bit _vector (7 downto 0); Q8not: out bit vector (7 downto 0)); 
end component; 
component Registerl3 is 
port (CLK, LD, RESET: in bit; D13: in bit vector (12 downto 0); 
Q13: inout bit _vector(12 downto 0);Q13not:out bit _vector(12 downto 0)); 
end component; 
component Registerl7 is 
port (CLK, LD, RESET: in bit; D17: in bit vector (16 downto 0); 
Ql7: inout bit _vector(16 downto 0);Q17not:out bit _vector(16 downto 0)); 
end component; 
component Adder5 is 
port (A, B: in bit _vector(4 downto 0); Ci: in bit; 
S: out bit _vector(4 downto 0); Co: out bit); 
end component; 
component Adderlé is 
port (A, B: in bit _vector(15 downto 0); Ci, OVin: in bit; 
S: out bit _vector(16 downto 0); Co: out bit); 
end component; 
component ROMLUT is 
port (SIN, COS:out bit _vector(1 to 8); 
FIVEBITS:in bit_vector(1 to 5)); 
end component; 
component GainShifter is 
port (Control:in bit _vector(4 downto 1);Data:in bit _vector(8 downto 1); 
Output: out bit _vector(13 downto 1)); 
end component; 
component ControlLogic is 
port (ODVin, URB, PSVin, CLK, OPER: in bit; 
CLR13, CLR17, ODVout, PSVout: out bit); 
end component; 













































































signal 

QOutRegl, QNotOutReg1, QOutReg2, QNotOutReg2, QOutReg3, QNotOutReg3, QOutReg4 
,QNotOutReg4, 
QOutReg5, QNotOutReg5, QOutReg6, QNotOutReg6, OutAddl: bit vector (5 downto 
1); 
signal QOutReg7, QNotOutReg7, QOutReg8, QNotOutReg8, LUTSIN, LUTCOS: 
bit vector (8 downto 1); 
signal QOutReg9, ONotOutReg9, QOutReg10,QNotOutReg10, OutShiftSIN, 
OutShiftCOS: bit vector (13 downto 1); 

















a 


signal 
QOutRegl1, QNotOutReg1l1, QOutReg12, QNotOutReg12, QOutReg13, QNotOutReg13, 00 
utReg14,QNotOutReg14, 


OutAdd2, 
signal InputAdder2, 
signal 


OutAdd 


OPER, 


LD, 


3:3 


CLR5, 


bit vector 
InputAdder3: 
CLR8, 


(17 downto 
bit_vec 
CLR13, CLR1 





Reset _Inact: bit; 



















































































1); 
tor (16 downto 1); 
de SCEPC Obs. \COZs . "COS ¢ 











































































































signal InReg5: bit vector (5 downto 1); 

begin 

OPER <='1'; 

CLR5 <= '0'; 

CLR8 <= '0'; 

Ci <= '0'; 

LD <= '1'; 

Reset _Inact <= '0'; 

InReg5(4 downto 1) <= Gain (4 downto 1); 

InReg5(5) <= URB; 

Regl: Register5 port map(CLK, PRB, CLR5, PhaseInc(5 downto 1), 

QOutRegl (5 downto 1), QNotOutReg1(5 downto 1)); 

Reg2: Register5 port map(CLK, UNP, CLR5, QOutReg1l(5 downto 1), 

QOutReg2 (5 downto 1), QNotOutReg2(5 downto 1)); 

Reg3: Register5 port map(CLK, LD, CLR5, PhaseSamp(5 downto 1), 

QOutReg3 (5 downto 1), QNotOutReg3(5 downto 1)); 

Addl: Adder5 port map (QOutReg2,QOutReg3, Ci, OutAdd1(5 downto 1), 

Col); 

Reg4: Register5 port map(CLK, LD, CLR5, OutAdd1(5 downto 1), 

QOutReg4(5 downto 1), QNotOutReg4(5 downto 1)); 

LUT: ROMLUT port map (LUTSIN(8 downto 1),LUTCOS(8 downto 1), 

QOutReg4(5 downto 1)); 

Reg5: Register5 port map(CLK, PRB, CLR5, InReg5(5 downto 1), 

QOutReg5(5 downto 1), QNotOutReg5(5 downto 1)); 

Reg6: Register5 port map(CLK, UNP, CLR5, QOutReg5(5 downto 1), 

QOutReg6(5 downto 1), QNotOutReg6(5 downto 1)); 

Reg7: Register8 port map(CLK, LD, CLR8, LUTSIN(8 downto 1), 

QOutReg7 (8 downto 1), QNotOutReg7(8 downto 1)); 

Reg8: Register8 port map(CLK, LD, CLR8, LUTCOS(8 downto 1), 

QOutReg8 (8 downto 1), QNotOutReg8(8 downto 1)); 

Shiftl: GainShifter port map (QOutReg6(4 downto 1),QO0utReg7(8 downto 1),OutShiftSIN(13 

Shift2: GainShifter port map (QOutReg6(4 downto 1),Q0utReg8(8 downto 1),OutShiftcos (13 

Reg9: Registerl3 port map(CLK, LD, CLR13, OutShiftSIN(13 downto 1),QO0utReg9(13 downto 1 
Regl0: Registerl3 port map(CLK, LD, CLR13, OutShiftCOS(13 downto 1), QOutReg10(13 downt 
Regll: Registerl7 port map(CLK, LD, Reset _Inact, OtherBinDataSIN(17 downto 1), QOutRegl 
Regl2: Registerl7 port map(CLK, LD, Reset _Inact, OtherBinDataCOS (17 downto =n QOutRegl 
Add2: Adderl6 port map (InputAdder2, QOutReg11(16 downto 1), Ci, QOutRegl1(17), OutAdd2 
Add3: Adderl6 port map (InputAdder3, QOutReg12(16 downto 1), Ci, QOutReg12 (1 OutAdd3 
Reg13: Registerl7 port map(CLK, LD, CLR17, OutAdd2(17 downto 1), eens Hey Sowake 1) 
Regl4: Registerl7 port map(CLK, LD, CLR17, OutAdd3(17 downto 1), QOutReg14(17 downto 1) 
Control: ee port map (ODVin, QOutReg6(5), PSVin, CLK,OPER, CLR13, CLR17, ODVo 
InputAdder2 ah downto 1) <= QOutReg9(13 downto 1); 

InputAdder2 (1 <= QOutReg9 (13); 

InputAdder2 (1 <= QOutReg9 (13); 

InputAdder2 (1 <= QOutReg9 (13); 

InputAdder3 ce downto 1) <= QOutReg10(13 downto 1); 

InputAdder3 (14) <= QOutReg10(1 . 

InputAdder3 (15) <= QOutReg10(1 

InputAdder3 (16) <= QOutReg10(1 

DRFM(5 downto 1) <= QOutReg3 (5 re 1); 
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Q <= QOutReg13; 
I <= QOutReg14; 
end OneBin; 


—-—kKKKK BEGIN REPLACE HERE kKAKK*K 





entity FourBin is 

port (Input: in bit vector (63 downto 0); 
Output:out bit vector (63 downto 0); CLK: in bit); 
end FourBin; 


architecture FourBin of FourBin is 


component OneBin is 

port (PhaseSamp, PhaseInc: in bit vector (5 downto 1); 

Gain: in bit vector (4 downto 1); 

URB, UNP, PRB, ODVin, PSVin: in bit; 

OtherBinDataSIN, OtherBinDataCOS:in bit vector (17 downto 1); 
Q, I: out bit vector (17 downto 1); 

ODVout, PSVout: out bit; 

DRFM: out bit vector (5 downto 1); 

CLK: in bit); 

end component; 





signal Q, I, Q1,11,02,12,Q3,13: bit vector (17 downto 1) 
:="00000000000000000"; 

signal DRFMO,DRFM1,DRFM2,DRFM3: bit vector (5 downto 1):="00000"; 
signal PSVout0, PSVout1, PSVout2,PSVout3: bit:='0'; 

signal ODVout0, ODVout1,ODVout2,ODVout3: bit:='0'; 

signal Gain0O,Gainl,Gain2,Gain3: bit vector (4 downto 1):="0000"; 

















signal PhaseIncO, PhaseIncl, PhaseInc2, PhaseInc3: bit vector (5 downto 1) 
:="00000"; 

signal URBO,URB1,URB2,URB3: bit :='0'; 

signal PhaseSamp: bit vector (5 downto 1):= "00000"; 

signal PRB, UNP, PSVin, ODVin: bit :='0'; 

begin -- BINO is the primary output 

--Input: formats, cycle begins when PRB=1, 1 format per clock 
-- ten bits of each bin: 10 | 9-5 |4-1 | 

-- 63-48 |47-38 |37-28 |27-18 | 17-8 | 7-3 | 2 | 1 | 0 
--unused bin3 | bin2 | binl | binO |sample |PSVin |UNP |PRB 
-- 63-8 [i %=3 | 2 [2 ey 4 ft 70 
--unused |sample |PSVin |UNP |PRB 


-- The first sample can be entered on clock 2 if PSVin and UNP are 
taken high 











PRB<=Input (0) ; 
UNP<=Input (1); 
PSVin<=Input (2) ; 


PhaseSamp<=Input(7 downto 3); 
-- Bin 0 data 

URBO<=Input (17); 
PhaseInc0O<=Input(16 downto 12); 
Gain0<=Input (11 downto 8); 

-- Bin 1 Data 

URB1<=Input (27); 
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-- Bin 2 

















Gainl<=Inp 


URB2<=Inpu 
PhaseInc2<=Input (36 downto 32); 
Gain2<=Input (31 downto 28); 


data 
Et3*h)y 









































PhaseIncl<=Input(26 downto 22); 
ut (21 downto 18); 











-- Bins 3 data 

URB3<=Input (47) ; 

PhaseInc3<=Input (46 downto 42); 

Gain3<=Input (41 downto 38); 

BINO: OneBin port map (DRFM1, PhaseIncO, Gain0O, URBO, UNP, PRB, 
ODVoutl1, PSVoutl, Q1, I1, Q, I, ODVout0, PSVout0, DRFMO, CLK); 
BIN1: OneBin port map (DRFM2, PhaseIncl, Gainl, URB1, UNP, PRB, 
ODVout2, PSVout2, Q2, 12, Q1, I1, ODVoutl, PSVoutl, DRFM1, CLK) 
BIN2: OneBin port map (DRFM3, PhaseInc2, Gain2, URB2, UNP, PRB, 
ODVout3, PSVout3, Q3, 13, Q2, 12, ODVout2, PSVout2, DRFM2, CLK) 
BIN3: OneBin port map (PhaseSamp, PhaseInc3, Gain3, URB3, UNP, 
ODVin, PSVin, "00000000000000000", "O0000000000000000", O3, 13, 
ODVout3, PSVout3, DRFM3, CLK); 

-- Output Format: 

-- 63-41 40 39 38-22 21-5 4-0 

--unused | PSVout | ODVout | Q | I | DRFM 
Output (40) <=PSVout0; 

Output (39) <=ODVout0; 

Output (38 downto 22) <=Q; 

Output (21 downto 5)<=I; 

Output (4 downto 0)<=DRFMO; 

Output (63 downto 41)<="00000000000000000000000"; 





end FourBin; 


--**** END REPLACE HERE ***** 











B. 8 BIN MACRO VHDL 

entity EightBin is 

port (Input: in bit vector (63 downto 0); 
Output:out bit vector (63 downto 0); 

end EightBin; 

architecture EightBin of EightBin is 














component OneBin is 








port (PhaseSamp, 

Gain: in bit vector (4 downto 1); 
URB, UNP, PRB, ODVin, PSVin: in bit; 
OtherBinDataSIN,O 

Q, I: out bit vector (17 downto 1); 
ODVout, PSVout: out bit; 

DRFM: out bit vector (5 downto 1); 
CLK: in bit); 

end component; 

component DFlipFlop 

port (CLK, LD, RESET, D: in bit; 
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CLK: 


in: batt ).4 


PhaseInc: in bit vector (5 downto 1); 


therBinDataCOS:in bit vector (17 downto 1); 


, 


, 


PRB, 


Q: inout bit; Qnot: out bit); 

end component; 

signal Q, I, Q1,11,02,12,03,13,04,14 
downto 1) :="00000000000000000"; 


,95,15,Q6,16,Q7,17: bit _vector (17 





signal DRFMO,DRFM1,DRFM2,DRFM3,DRFM4 
downto 1) :="00000"; 

signal PSVout0, PSVoutl1, PSVout2, PSVou 
bit:='0'; 
signal ODVout0, ODVoutl1,ODVout2,O0DVou 
bit:='0'; 





signal Gain0O,Gainl,Gain2,Gain3,Gain4 


, DRFEM5,DRFM6,DRFM7: bit vector (5 
t3,PSVout4, PSVout5, PSVout6, PSVout?7: 
t3,ODVout4, ODVout5, ODVout6, ODVout7: 


,Gain5,Gain6,Gain7: bit vector (4 





downto 1):="0000"; 
signal PhaseInc0O, PhaseIncl, PhaseInc2 





,PhaselInc3,PhaselInc4, 


PhaseInc5, PhaseInc6,PhaseInc7 : bit vector (5 downto 1):="00000"; 
signal URBO,URB1,URB2,URB3,URB4,URB5,URB6,URB7: bit :='0'; 

signal PhaseSamp: bit vector (5 downto 1):= "00000"; 

signal UNP, PSVin, ODVin: bit :='0'; 

signal LD, RESET, PRB, PRB1, PRBinot: bit; 














PRB=1, 1 format per clock 





4-1 | 

7-3 | 2 fink * si, £0 
sample |PSVin |UNP |PRB 
1=3 | 2 | 1 | 0 
sample |PSVin |UNP |PRB 
7-3 ee | 1 | 0 
sample |PSVin |UNP |PRB 


-- The first sample can be entered on clock 3 if PSVin and UNP are 





begin -- BINO is the primary output 
--Input: formats, cycle begins when 
-- ten bits of each bin: 10 | 9-5 
-- 63-48 |47-38 |37-28 |27-18 | 17-8 
--unused bin3 | bin2 | binl | binO 
-- 63-48 |47-38 |37-28 |27-18 | 17-8 
--unused bin? | bin6é | binS | bin4 
-- 63-8 

--unused 

taken high 


LD<=" 1's 
RESET<='0'; 
PRB<=Input (0) ; 
UNP<=Input (1); 
PSVin<=Input (2) 
PhaseSamp<=Inpu 
-- Bins 0,4 dat 
URBO<=Input (17); 
PhaseInc0O<=Input(16 downto 12); 
Gain0<=Input (11 downto 8); 
URB4<=Input (17); 
PhaseInc4<=Input(16 downto 12); 
Gain4<=Input (11 downto 8); 

-- Bins 1,5 data 

URB1<=Input (27); 
PhaseIncl<=Input(26 downto 22); 
Gainl<=Input (21 downto 18); 
URB5<=Input (27); 
PhaseInc5<=Input (26 downto 22); 
Gain5<=Input (21 downto 18); 

-- Bins 2,6 data 

URB2<=Input (37); 
PhaseInc2<=Input (36 downto 32); 
Gain2<=Input (31 downto 28); 
URB6<=Input (37); 
PhaseInc6<=Input (36 downto 32); 














(7 downto 3); 
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1 


Gain6<=Inp 
-- Bins 3, 
URB3<=Inpu 
PhaseInc3<=Input (46 downto 42); 
Gain3<=Input (41 downto 38); 

URB7<=Inpu 
PhaseInc7<=Input (46 downto 42); 
Gain7<=Input (41 downto 38); 





























7 data 
(47) 3 


t (47); 


























ut (31 downto 28); 
















































































DFF: DFlipFlop port map (CLK, LD, RESET, PRB, PRB1, PRBlnot 
BINO: OneBin port map (DRFM1, PhaseInc0O, Gain0O, URBO, UNP, 
ODVoutl1l, PSVoutl, Q1, I1, Q, I, ODVout0, PSVout0, DRFMO, CL 
BIN1: OneBin port map (DRFM2, PhaseIncl, Gainl, URB1, UNP, 
ODVout2, PSVout2, Q2, 12, Q1, I1, ODVoutl, PSVoutl, DRFM1, 
BIN2: OneBin port map (DRFM3, PhaseInc2, Gain2, URB2, UNP, 
ODVout3, PSVout3, Q3, 13, Q2, 12, ODVout2, PSVout2, DRFM2, 
BIN3: OneBin port map (DRFM4, PhaseInc3, Gain3, URB3, UNP, 
ODVout4, PSVout4, O04, 14, Q3, 13, ODVout3, PSVout3, DRFM3, 
BIN4: OneBin port map (DRFM5, PhaseInc4, Gain4, URB4, UNP, 
ODVout5, PSVout5, Q5, 15, Q4, 14, ODVout4, PSVout4, DRFM4, 
BIN5: OneBin port map (DRFM6, PhaseInc5, Gain5, URB5, UNP, 
ODVout6, PSVout6, Q6, 16, Q5, 15, ODVout5, PSVout5, DRFM5, 
BIN6: OneBin port map (DRFM7, PhaseInc6, Gain6, URB6, UNP, 
ODVout7, PSVout7, Q7, I7, Q6, 16, ODVout6, PSVout6, DRFM6, 
BIN7: OneBin port map (PhaseSamp, PhaseInc7, Gain7, URB7, U 
ODVin, PSVin, "00000000000000000", "OQOQ000000000000000", QO7, 
ODVout7, PSVout7, DRFM7, CLK) ; 

-- Output Format: 

-- 63-41 | 40 | 39 [) 88-22" ||| 21-5 4-0 

--unused | PSVout | ODVout | Q | I DRFM 
Output (40) <=PSVout0; 

Output (39) <=ODVout0; 

Output (38 downto 22) <=Q; 

Output (21 downto 5)<=I; 

Output (4 downto 0)<=DRFMO; 

Output (63 downto 41)<="00000000000000000000000"; 

end EightBin; 

Cc. 16 BIN MACRO VHDL 


entity SixteenBin is 


port 


(Input: in bit vector (63 downto 0); 


Output:out bit vector (63 downto 0); CLK: in bit); 
end SixteenBin; 


architectur 


Sixt 





component OneBin is 


port 


(PhaseSamp, 


Gain: in bit vector (4 downto 1); 


URB, UNP, 


OtherBinDataSIN,O 


PRB, ODVin, 





PSVin: 


Q, I: out bit vector (17 downto 1); 
ODVout, PSVout: out bit; 
DRFM: out bit vector (5 downto 1); 


in bit; 
therBinDataCOS:in bit vector (17 downto 1); 
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nBin of SixteenBin is 


PhaseInc: in bit vector (5 downto 1); 





Zz, 








CLK: in bit); 


end component; 


component DFlipFlop 


port (CLK, LD, 





RES 








ET, 





Q: inout bit; 


end component; 


signal Q, I, 


Qnot: 


out 


De 


in. bit? 
bast) F 


Q1,11,02,12,03,13,04,14 
Q10,110,011,111,012,112,013,113,014, 
1) :="00000000000000000"; 


114, 


bi 


t_ vector 


705715706; 16,07;,.11/ 0818) 097 19% 
O15 5a 


(17 downto 





signal DRFMO,DRFM1,DRFM2,DRFM3, DRFM4 
DRFM10,DRFM11,DRFM12, 


1) :="00000"; 


signal PSVout0, PSVout1, PSVou 
PSVout8, PSVou 
Ones 
DVout0, ODVout1, ODVout2, ODVou 


PSVout7, 
Voutl15: 
signal O 


bit:=' 





ODVout7, ODVout8, ODVou 


t9, 











t9, 


PSVou 








ODVou 


t2,PSVou 





t3,PSVou 
t10,PSVout11, PSVout12, PSVou 


t3,ODVou 
t10,O0DVout11,0 


, DRFM5, DRFM6, DRFM7, 
DRFM13,DRFM14,DRFM15: bit vector 








t4,PSVou 


C5, 





DRFM8, DRFM9, 
(5 downto 


PSVout6, 
t13,PSVout14,Ps 


t4,ODVout5, ODVout6, 


DVout12,O0DVout13,O0DVout14, 0D 


































































































Vout15: bit:='0'; 

signal Gain0O,Gainl,Gain2,Gain3,Gain4,Gain5,Gain6,Gain7,Gain8,Gain9, 
Gainl0,Gainll,Gainl2,Gainl3,Gainl4,Gain15: bit vector (4 downto 

1) :="0000"; 

Signal 

PhaselIncO, PhaseIncl, PhaseInc2, PhaseInc3, PhaseInc4, PhaseInc5, PhaselInc6, 
PhaseInc7 bit vector (5 downto 1) :="00000"; 

signal PhaseInc8, PhaseInc9, PhaseIncl0, PhaseIncll1, PhaseIncl12, PhaseInc13, 
PhaseIncl4, PhaseIncl5 bit vector (5 downto 1) :="00000"; 

signal URBO,URB1,URB2,URB3,URB4,URB5, URB6, URB7, URB8, URB9, URB10, URB11, 
URB12,URB13,URB14,URB15: bit :='0'; 

signal PhaseSamp: bit vector (5 downto 1):= "00000"; 

signal UNP, PSVin, ODVin: bit :='0'; 

signal LD, RESET, PRB, PRBl, PRB2, PRB3, PRBinot, PRB2not, PRB3not: bit; 
begin -- BINO is the primary output 

--Input: formats, cycle begins when PRB=1, 1 format per clock 

-- ten bits of each bin: 10 | 9-5 4-1 | 

-- 63-48 |47-38 |37-28 |27-18 17-8 133 2 1 0 
--unused bin3 bin2 binl bind |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7=3 2 1 0 
--unused bin7 bin6é bind bin4 |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 
--unused binll|] binl0| bing bin8 |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 

--unused binl5| binl4| bin1l3| binl2|sample |PSVin |UNP |PRB 

-- 63-8 7-3 2 1 0 

--unused sample |PSVin |UNP |PRB 

-- The first sample can be entered on clock 5 if PSVin and UNP are 
taken high 

LD<='1'; 

RESET<='0'; 








PRB<=Input (0); 
UNP<=Input (1); 








PSVin<=Input (2) ; 
PhaseSamp<=Input(7 downto 3); 
-- Bins 0,4,8,12 data 
URBO<=Input (17); 
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PhaseInc0< 
Gain0<=Inp 
RB4<=Inpu 
haseInc4< 
ain4<=Inp 
URB8<=Inpu 
PhaseInc8< 
Gain8<=Inp 
URB12<=Inp 


Qu < 


























RB2<=Inpu 


DPD 

Gain2<=Inp 
URB6<=Inpu 
PhaseInc6< 
Gain6<=Inp 
URB10<=Inp 











D 
Gain7<=Inp 
RB11<=Inp 








URB15<=Inp 





=Inpu 


t (11 


Inpu 
t (11 


Gh <6 








Inpu 
ut (11 
ut (17 








PhaseInc12<=Inp 
Gainl2<=Inp 
-- Bins 1,5,9,13 data 




















URB1<=Input (27) 

PhaseIncl<=Inpu 

Gainl<=Input (21 

URB5<=Input (27); 
PhaseInc5<=Inpu 

Gain5<=Input (21 

URB9<=Input (27); 
PhaseInc9<=Inpu 

Gain9<=Input (21 

URB13<=Input (27 

PhaseInc13<=Inp 
Gainl3<=Inp 


t (37) 


PhaseInc2<=Inpu 


t (31 


t (37) 


Inpu 


ut (31 
ut (37 
PhaseInc10<=Inp 
Gainl0<=Inp 





PhaseInc7<=Inp 


PhaseIncll<=In 
Gainl1l<=Input ( 
ut (4 
PhaseInc15<=Inp 
Gainl5<=Inp 

















aI BON rFPGC~ 





Bile 


(17); 








t (26 down 
down 
t (26 down 
down 
t(26 down 
down 


)3 








ta 


, 


down 


, 





down 


)3 








down 


)3 


)3 








ut (11 downto 8); 





t(16 downto 12); 
downto 8); 

t(16 downto 12); 
downto 8); 

t(16 downto 12); 
downto 8); 

)3 

ut(16 downto 12); 


Co! 22) 3 
to 18); 


to 22); 
to 18); 


to 22); 
to 18); 


ut (26 downto 22); 
ut (21 downto 18); 
-- Bins 2,6,10,14 da 


t(36 downto 32); 
to 28); 


t(36 downto 32); 
to 28); 


ut (36 downto 32); 
ut (31 downto 28); 


ut (36 downto 32); 


URB14<=Input (37); 
PhaseInc14<=Inp 
Gainl4<=Input (31 downto 28); 
-- Bins 3,7,11,15 data 
URB3<=Input (47) ; 
PhaseInc3<=Input (46 downto 42); 
Gain3<=Input (41 downto 38); 
RB7<=Input (47) ; 


t(46 downto 42); 
to 38); 


ut (46 downto 42); 
1 downto 38); 


ut (46 downto 42); 
ut (41 downto 38); 
































DFFO: DFlipFlop port map (CLK, LD, RES 
DFF1: DFlipFlop port map (CLK, LD, RES 
DFF2: DFlipFlop port map (CLK, LD, RES 
BINO: OneBin port map (DRFM1, PhaseInc0O, 
ODVoutl, PSVoutl, Q1, I1, OQ, I, ODVout0, 
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ET, 
ET, 
ET, 


PRB, 
PRB1, 
PRB2, 

Gaino, 

PSVoutO, 


PRB1, 
PRB2, 
PRB3, 
URBO, 


DRFMO, 


PRBinot); 
PRB2not); 
PRB3not); 
UNP, PRB, 

CLK) ; 


































































































































































































BIN1: OneBin port map (DRFM2, PhaseIncl, Gainl, URB1, UNP, PRB, 
ODVout2, PSVout2, Q2, 12, Q1, I1, ODVoutl, PSVoutl, DRFM1, CLK); 

BIN2: OneBin port map (DRFM3, PhaseInc2, Gain2, URB2, UNP, PRB, 
ODVout3, PSVout3, Q3, 13, Q2, 12, ODVout2, PSVout2, DRFM2, CLK); 

BIN3: OneBin port map (DRFM4, PhaseInc3, Gain3, URB3, UNP, PRB, 
ODVout4, PSVout4, Q4, 14, Q3, 13, ODVout3, PSVout3, DRFM3, CLK) ; 

BIN4: OneBin port map (DRFM5, PhaseInc4, Gain4, URB4, UNP, PRB1, 
ODVout5, PSVout5, Q5, 15, Q4, 14, ODVout4, PSVout4, DRFM4, CLK); 

BIN5: OneBin port map (DRFM6, PhaseInc5, Gain5, URB5, UNP, PRB1, 
ODVout6, PSVout6, Q6, 16, Q5, 15, ODVout5, PSVout5, DRFM5, CLK) ; 

BIN6: OneBin port map (DRFM7, PhaseInc6, Gain6é, URB6, UNP, PRB1, 
ODVout7, PSVout7, Q7, I7, Q6, 16, ODVout6, PSVout6, DRFM6, CLK) ; 

BIN7: OneBin port map (DRFM8, PhaseInc7, Gain7, URB7, UNP, PRB1, 
ODVout8, PSVout8, Q8, 18, Q7, I7, ODVout7, PSVout7, DRFM7, CLK) ; 
BIN8: OneBin port map (DRFM9, PhaseInc8, Gain8, URB8, UNP, PRB2, 
ODVout9, PSVout9, QO9, 19, Q8, 18, ODVout8, PSVout8, DRFM8, CLK) ; 

BINS: OneBin port map (DRFM10, PhaseInc9, Gain9, URB9, UNP, PRB2, 
ODVout10, PSVout10, Q10, 110, 09, 19, ODVout9, PSVout9, DRFM9, CLK); 
BIN10: OneBin port map (DRFM11, PhaseIncl0, Gainl0, URB10, UNP, PRB2 
ODVout11, PSVoutll1, Q11, I11, 910, 110, ODVout10, PSVout10, DRFM10, 
CLK) ; 

BIN11: OneBin port map (DRFM12, PhaseIncll, Gainll, URB11, UNP, PRB2, 
ODVout12, PSVoutl12, Q12, 112, Q11, I11, ODVoutlil, PSVoutl1l, DRFM11, 
CLK) ; 

BIN12: OneBin port map (DRFM13, PhaseIncl2, Gainl2, URB12, UNP, PRB3, 
ODVout13, PSVout13, Q13, 113, 912, 112, ODVout1l2, PSVout12, DRFM12, 
CLK) ; 

BIN13: OneBin port map (DRFM14, PhaseIncl3, Gainl3, URB13, UNP, PRB3, 
ODVout14, PSVout14, 014, 114, Q13, 113, ODVout13, PSVout13, DRFM13, 
CLK) ; 

BIN14: OneBin port map (DRFM15, PhaseIncl4, Gainl4, URB14, UNP, PRB3, 
ODVout15, PSVout15, Q15, 115, 914, 114, ODVout14, PSVout14, DRFM14, 
CLK) ; 

BIN15: OneBin port map (PhaseSamp, PhaseInc15, Gainl5, URB15, UNP, 
PRB3, ODVin, PSVin, "00000000000000000", "O0000000000000000", O15, 115, 
ODVout15, PSVout15, DRFM15, CLK); 

-- Output Format: 

-- 63-41 | 40 | 39 [) 388-22 |) -214-5°"\|) 4=0 

--unused | PSVout | ODVout | Q | I | DREM 

Output (40) <=PSVout0; 

Output (39) <=ODVout0; 

ae downto See 

Output (21 downto 5)< 

Output (4 downto 0) <= Benes 

Output (63 downto 41)<="00000000000000000000000"; 











end SixteenBin; 


D. 64 BIN MACRO VHDL 


entity SixtyFourBin is 

port (Input: in bit vector (63 downto 0); 
Output:out bit vector (63 downto 0); CLK: in bit); 
end SixtyFourBin; 
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architecture SixtyFourBin of SixtyFourBin is 


component OneBin is 
port (PhaseSamp, PhaseInc: in bit vector (5 downto 1); 
Gain: in bit vector (4 downto 1); 
URB, UNP, PRB, ODVin, PSVin: in bit; 
OtherBinDataSIN, OtherBinDataCOS:in bit vector (17 downto 1); 
Q, I: out bit vector (17 downto 1); 

ODVout, PSVout: out bit; 

DRFM: out bit vector (5 downto 1); 

CLK s: an bat) y 
end component; 
component DFlipFlop 

port (CLK, LD, RESET, D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 


























signal Q, I, Q1,11,02,12,03,13,04,14,05,15,06,16,07,17,08,18,09,19, 
Q10,110,Q11,111,912,112,Q13,113,914,114,Q15,115: bit vector (17 downto 
1) :="00000000000000000"; 

signal 916, 116, Q17,117,018,118,019,119,020,120,021,121,022,122,023, 
I23,024,124,Q025,125, 
Q26,126,Q027,127,028,128,029,129,Q30,130,031,131:bit vector (17 downto 
1) :="00000000000000000"; 

signal 9032, 132, Q33,133,034,134,035,135,036,136,037,137,038,138, 
Q39,139,040,140,041,141, 
Q42,142,043,143,044,144,045,145,046,146,047,147: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 048, 148, 049,149,050,150,051,151,052,152,053,153,054,154,055, 
155,Q56,156,Q057,157, 

Q58,158,Q59,159,Q60, 160,061, 161,062,162,063,163: bit vector (17 downto 
1) :="00000000000000000"; 







































































signal DRFMO, DRFM1,DRFM2,DRFM3,DRFM4,DRFM5,DRFM6, DRFM7, DRFM8, DRFM9, 
DRFM10, DRFM11, DRFM12,DRFM13,DRFM14,DRFM15: bit vector (5 downto 

1) :="00000"; 

signal 

DRFM16, DRFM17, DRFM18, DRFM19, DRFM20, DRFM21, DRFM22, DRFM23, DRFM24,DRFM25, 
DRFM26, DRFM27, DRFM28, DRFM29, DRFM30,DRFM31: bit vector (5 downto 

1) :="00000"; 

signal 

DRFM32,DRFM33, DRFM34, DRFM35, DRFM36, DRFM37, DRFM38, DRFM39, DRFM40,DRFM41, 
DRFM42, DRFM43, DRFM44, DRFM45, DRFM46, DRFM47: bit vector (5 downto 

1) :="00000"; 

signal 

DRFM48, DRFM49, DRFM50, DRFM51, DRFM52, DRFM53, DRFM54, DRFM55, DRFM56, DRFM57, 
DRFM58, DRFM59, DRFM60, DRFM61, DRFM62, DRFM63: bit vector (5 downto 

1) :="00000"; 

signal PSVout0, PSVout1, PSVout2, PSVout3, PSVout4, PSVout5, PSVout6, 
PSVout7, PSVout8, PSVout9, PSVout10, PSVout11, PSVout12, PSVout13, PSVout14, 





16, PSVout17, PSVout18, PSVout19, PSVout20, PSVout21, PSVout22, 


: V.O1s 
32, PSVout33, PSVout34, PSVout35, PSVout36, PSVout37, PSVout38, 
ut40, PSVout41, PSVout42, PSVout43, PSVout44, PSVout45, PSVout46 
it:='0O'; 
48, PSVout49, PSVout50, PSVout51, PSVout52, PSVout53, PSVout54, 
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PSVout55, PSVout56, PSVout57, PSVout58, PSVout59, PSVout60, PSVout61, PSVout62 
,PSVout63: bit:='0'; 

signal ODVout0, ODVout1, ODVout2, ODVout3, ODVout4, ODVout5, ODVouté6, 
ODVout7, ODVout8, ODVout9, ODVout10, ODVout11, ODVout12, ODVout13,ODVout14, OD 
Vout15: bit:='0'; 

signal ODVout16, ODVout17,ODVout18, ODVout19, ODVout20, ODVout21,O0DVout22, 
ODVout23, ODVout24, ODVout25, ODVout26, ODVout27, ODVout28, ODVout29, ODVout30 
,ODVout31: bit:='0'; 

signal ODVout32,O0DVout33, ODVout34, ODVout35, ODVout36, ODVout37, ODVout38, 
ODVout39, ODVout40, ODVout41, ODVout42, ODVout43, ODVout44, ODVout45, ODVout46 
,ODVout47: bit:='0'; 

signal ODVout48, ODVout49, ODVout50, ODVout51, ODVout52, ODVout53,ODVout54, 
ODVout55, ODVout56, ODVout57, ODVout58, ODVout59, ODVout60, ODVout61, ODVout62 
,ODVout63: bit:='0'; 

signal Gain0O,Gainl,Gain2,Gain3,Gain4,Gain5,Gain6,Gain7,Gain8,Gain9, 
Gainl0,Gainll,Gainl2,Gainl3,Gainl4,Gain15: bit vector (4 downto 

1) :="0000"; 

signal 





Gainl6,Gainl17,Gain18,Gainl19,Gain20,Gain21,Gain22,Gain23,Gain24,Gain25, 
Gain26,Gain27,Gain28,Gain29,Gain30,Gain31: bit vector (4 downto 





1) :="0000"; 
signal 


Gain32,Gain33,Gain34,Gain35,Gain36,Gain37,Gain38,Gain39,Gain40,Gain41, 
Gain42,Gain43,Gain44,Gain45,Gain46,Gain47: bit vector (4 downto 


1) :="0000"; 
signal 


Gain48,Gain49,Gain50,Gain51,Gain52,Gain53,Gain54,Gain55,Gain56,Gain57, 
Gain58,Gain59,Gain6o0,Gain6ol,Gaino2,Gain6o3: bit vector (4 downto 


1) :="0000"; 
signal 


PhaselInc7, 


c14,PhaselIn 
Signal 

PhaselIncl6, 
PhaseInc22, 
PhaselInc24, 
Inc30, Phase 
signal 
PhaselInc32, 
Inc38, Phase 
PhaselInc40, 
Inc46, Phase 
signal 
PhaselInc48, 
Inc54, Phase 
PhaseInc56, 
Inc62, Phase 
signal 
URBO, URB1,U 


signal 








, URB28,URB29,URB30,URB31: 


eLs 


PhaseIncl7, 
PhaseInc23, 
PhaseInc25, 
Inc31 bit 


PhaseInc33, 
Ine39, 

PhaseInc4l1, 
Inc47 bit 


PhaseInc49, 
Ines; 

PhaseInc57, 
Inc63 





bit 


_vector 


_vector 


PhaselIncl18, 


PhaseInc26, 
(5 


PhaseInc34, 


PhaseInc42, 
(5 


PhaseInc50, 





PhaseInc58, 


"Owe 


PhaselIncl9, 


PhaseInc27, 


PhaseInc35, 


PhaseInc43, 


PhaseInc5Sl, 





PhaseInc59, 


PhaseInc20, 


PhaseInc28, 


downto 1) :="00000"; 


PhaseInc36, 


PhaseInc44, 


downto 1) :="00000"; 


PhaseInc52, 





PhaseIncé60, 


bit vector (5 downto 1) :="00000"; 


PhaseInc21, 


PhaseInc29, 


PhaseInc37, 


PhaseInc45, 


PhaseInc53, 





PhaseIncél, 


PhaselIncO, PhaseIncl, PhaseInc2, PhaseInc3, PhaseInc4, PhaseInc5, PhaselInc6, 


PhaselInc8, PhaselInc9, PhaseIncl0, PhaseIncll, PhaseIncl2, PhaseInc13, PhaseIn 
bit vector (5 downto 1) :="00000"; 


Phase 


Phase 


Phase 


Phase 





Phase 


RB2,URB3,URB4,URB5, URB6, URB7, URB8, URB9, URB10, URB11, URB12,URB 
13,URB14,URB15: 


URB16, URB17, URB18, URB19, URB20, URB21, URB22, URB23, URB24, URB25, URB26, URB27 





bit 


017 
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signal 

URB32,URB33,URB34, URB35, URB36, URB37, URB38, URB39, URB40, URB41, URB42, URB43 
, URB44, URB45, URB46, URB47: bit :='0'; 
signal 
URB48, URB49, URB50, URB51, URB52, URB53, URB54, URB55, URB56, URB57, URB58, URB59 
,URB60, URB61, URB62,URB63: bit :='0'; 
signal PhaseSamp: bit vector (5 downto 1):= "00000"; 
signal UNP, PSVin, ODVin: bit :='0'; 
signal LD, RESET, PRB, PRB1, PRB2, PRB3, PRB4, PRB5, PRB6, PRB7, PRB8, 
PRB9, PRB10, PRB11, PRB12, PRB13, PRB14, PRB15, 

PRB1inot, PRB2not, PRB3not, PRB4not, PRB5not, PRB6énot, PRB7not, PRB8not, PRB9not 
,PRB10not, PRB11not, PRB12not, PRB13not, PRB14not, PRB15not: bit; 





































































































Begin -- BINO is the primary output 

--Input: formats, cycle begins when PRB=1, 1 format per clock 
-- ten bits of each bin: 10 | 9-5 4-1 | 

-- 63-48 |47-38 |37-28 |27-18 17-8 T3 2 1 0 
--unused bin3 bin2 binl binO |sample |PSVin |UNP |PRB 
-- 63-48 |47-38 |37-28 |27-18 17-8 753 2 al 0 
--unused bin7 bin6é bind bin4 |sample |PSVin |UNP |PRB 
-- 63-48 |47-38 |37-28 |27-18 17-8 13 2 1 0 
--unused binll| binl0| bing bin8 |sample |PSVin |UNP |PRB 
-- 63-48 |47-38 |37-28 |27-18 17-8 71-3 2 1 0 
--unused binl5| binl4| bin1l3| binl2|sample |PSVin |UNP |PRB 
-- 63-8 71-3 2 1 0 
--unused sample |PSVin |UNP |PRB 
-- more bins in same pattern up to 63... 

-- The first sample can be entered on clock 65 if PSVin and UNP are 
taken high 





Lp<="1"\} 

RESET<='0'; 

PRB<=Input (0) ; 

UNP<=Input (1); 

PSVin<=Input (2) ; 

PhaseSamp<=Input (7 downto 3); 

-- Bins 0,4,8,12,16,20,24,28, 32,36,40,44,48,52,56,60 data 
URBO<=Input (17); 
PhaseInc0<=Input(16 downto 12); 
Gain0<=Input (11 downto 8); 
URB4<=Input (17); 
PhaseInc4<=Input(16 downto 12); 
Gain4<=Input (11 downto 8); 
URB8<=Input (17); 
PhaseInc8<=Input(16 downto 12); 
Gain8<=Input(1l1 downto 8); 
URB12<=Input (17); 
PhaseIncl12<=Input(16 downto 12); 
Gainl2<=Input (11 downto 8); 
URB16<=Input (17); 
PhaseIncl6<=Input(16 downto 12); 
Gainl6<=Input (11 downto 8); 
URB20<=Input (17); 
PhaseInc20<=Input(16 downto 12); 
Gain20<=Input (11 downto 8); 
URB24<=Input (17); 
PhaseInc24<=Input (16 downto 12); 
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Gain24<=Inpu 

RB28<=Input 
haseInc28<= 
ain28<=Inpu 
RB32<=Input 
haseInc32<= 
ain32<=Inpu 
RB36<=Input 
haseInc36<= 
ain36<=Inpu 
URB40<=Input 
PhaseInc40<= 
Gain40<=I 


n 
U Pp 
PhaseInc44 
Gain44<=In 
Pp 
8 


RB44<=In 





RB48<=In 



































RB52<=Input 
haseInc52<= 
ain52<=Inpu 
RB56<=Input 
PhaseInc56<= 
Gain56<=Inp 
RB60<=Inpu 
PhaseInc60< 
Gain60<=Inpu 
== Bins. 1,5;,:9;.13,.17,21;25,29,33,37,41,45,49,53757;61 








ct ¢ 








t(11 downto 8); 


(17); 
Input (16 


(17); 
Input (16 


(17); 
Input (16 


downto 12); 


t(11 downto 8); 


(17); 
Input (16 


downto 12); 


t(11 downto 8); 


(17); 
Input (16 


(17); 
Input (16 





(17); 


Input (16 


downto 12); 


t(11 downto 8); 


downto 12); 


t(11 downto 8); 


downto 12); 


t(11 downto 8); 


(17); 


Input (16 
t(11 downto 8); 


(17); 











Input (16 





downto 12); 





downto 12); 





t(11 downto 8); 


(21 downto 18); 





























Input (26 downto 22); 


o 18); 





Input (26 downto 22); 


o 18); 


downto 22); 
to 18); 


downto 22); 
to 18); 


downto 22); 
to 18); 


downto 22); 
to 18); 


downto 22); 
to 18); 





downto 22); 
to 18); 





URB1<=Input (27); 
PhaseIncl<=Input(26 downto 22); 
Gainl<=Input 
URB5<=Input (27); 
PhaseInc5<= 
Gain5<=Input (21 downt 
URB9<=Input (27); 
PhaseInc9<= 
Gain9<=Input (21 downt 
URB13<=Input (27) ; 
PhaseInc13<=Input (26 
Gainl3<=Input (21 down 
URB17<=Input (27) ; 
PhaseIncl7<=Input (26 
Gainl7<=Input (21 down 
URB21<=Input (27) ; 
PhaseInc21<=Input (26 
Gain21<=Input (21 down 
URB25<=Input (27) ; 
PhaseInc25<=Input (26 
Gain25<=Input (21 down 
URB29<=Input (27) ; 
PhaseInc29<=Input (26 
Gain29<=Input (21 down 
URB33<=Input (27) ; 
PhaseInc33<=Input (26 
Gain33<=Input (21 down 
URB37<=Input (27) ; 





downto 12); 
t(11 downto 8); 


downto 12); 
t(11 downto 8); 
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data 


PhaseInc37<=Input (26 downto 22); 
Gain37<=Input (21 downto 18); 








URB41<=Input (27) ; 
PhaseInc41<=Input (26 downto 22); 
Gain41<=Input (21 downto 18); 
URB45<=Input (27); 
PhaseInc45<=Input (26 downto 22); 
Gain45<=Input (21 downto 18); 
URB49<=Input (27) ; 
PhaseInc49<=Input (26 downto 22); 
Gain49<=Input (21 downto 18); 





URB53<=Input (27) ; 
PhaseInc53<=Input (26 downto 22); 
Gain53<=Input (21 downto 18); 
URB57<=Input (27) ; 














PhaseInc57<=Input (26 downto 22); 
Gain57<=Input (21 downto 18); 
URB61<=Input (27) ; 














PhaseInc61<=Input (26 downto 22); 

Gain61<=Input (21 downto 18); 

-- Bins 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 data 
URB2<=Input (37); 

PhaseInc2<=Input (36 downto 32); 

Gain2<=Input (31 downto 28); 
URB6<=Input (37); 
PhaseInc6<=Input (36 downto 32); 
Gain6<=Input (31 downto 28); 
RB10<=Input (37); 














PhaseInc10<=Input (36 downto 32); 
Gainl0<=Inp 











ut (31 downto 28); 
URB14<=Input (37); 
PhaseIncl14<=Input (36 downto 32); 
Gainl4<=Input (31 downto 28); 
URB18<=Input (37); 
PhaseInc18<=Input (36 downto 32); 
Gainl8<=Input (31 downto 28); 
URB22<=Input (37) ; 
PhaseInc22<=Input (36 downto 32); 
Gain22<=Input (31 downto 28); 


(37); 
Input (36 downto 32); 
t(31 downto 28); 

(37); 


URB26<=Inpu 
PhaseInc26< 
Gain26<=Inp 
RB30<=Inpu 


ll ct ¢ 


ll ct ¢ 














PhaseInc30<=Input (36 downto 32); 
Gain30<=Input (31 downto 28); 
URB34<=Input (37) ; 
PhaseInc34<=Input (36 downto 32); 
Gain34<=Input (31 downto 28); 
URB38<=Input (37) ; 
PhaseInc38<=Input (36 downto 32); 
Gain38<=Input (31 downto 28); 
URB42<=Input (37) ; 
PhaseInc42<=Input (36 downto 32); 
Gain42<=Input (31 downto 28); 
URB46<=Input (37) ; 

















PhaseInc46<=Input (36 downto 32); 
Gain46<=Input (31 downto 28); 
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URB50<=Input (37) ; 
PhaseInc50<=Input (36 downto 32); 
Gain50<=Input (31 downto 28); 
URB54<=Input (37); 
PhaseInc54<=Input (36 downto 32); 
Gain54<=Input (31 downto 28); 
URB58<=Input (37); 
PhaseInc58<=Input (36 downto 32); 
Gain58<=Input (31 downto 28); 
URB62<=Input (37) ; 
PhaseInc62<=Input (36 downto 32); 
Gain62<=Input (31 downto 28); 














==) Bins) 3% 77 11,15>19,2372173175357 39, 437477 917.95997 03) data 


















































URB3<=Input (47) ; 
PhaseInc3<=Input (46 downto 42); 
Gain3<=Input (41 downto 38); 
URB7<=Input (47); 
PhaseInc7<=Input (46 downto 42); 
Gain7<=Input (41 downto 38); 
URB11<=Input (47); 
PhaseIncll<=Input (46 downto 42); 
Gainll<=Input (41 downto 38); 
URB15<=Input (47) ; 
PhaseInc15<=Input (46 downto 42); 
Gainl5<=Input (41 downto 38); 
URB19<=Input (47) ; 
PhaseInc19<=Input (46 downto 42); 
Gainl9<=Input (41 downto 38); 
URB23<=Input (47) ; 
PhaseInc23<=Input (46 downto 42); 
Gain23<=Input (41 downto 38); 
URB27<=Input (47) ; 
PhaseInc27<=Input (46 downto 42); 
Gain27<=Input (41 downto 38); 
URB31<=Input (47) ; 
PhaseInc31<=Input (46 downto 42); 
Gain31<=Input (41 downto 38); 
URB35<=Input (47) ; 
PhaseInc35<=Input (46 downto 42); 
Gain35<=Input (41 downto 38); 
URB39<=Input (47) ; 
PhaseInc39<=Input (46 downto 42); 
Gain39<=Input (41 downto 38); 
URB43<=Input (47) ; 
PhaseInc43<=Input (46 downto 42); 
Gain43<=Input (41 downto 38); 
URB47<=Input (47) ; 
PhaseInc47<=Input (46 downto 42); 
Gain47<=Input (41 downto 38); 
URB51<=Input (47) ; 
PhaseInc51<=Input (46 downto 42); 
Gain51<=Input (41 downto 38); 
URB55<=Input (47) ; 
PhaseInc55<=Input (46 downto 42); 
Gain55<=Input (41 downto 38); 
URB59<=Input (47) ; 
PhaseInc59<=Input (46 downto 42); 
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Gain59<=Input (41 downto 38); 


DFF1 
DFF1 
DFF1 
DFF1 
DFF1 








{e) 


¢ 


AQeowaowaownaowaowowowvOoOwoOWoOUOWOWOWOWO 
U 
NQANRGCARSGAZARGCAZARSC2ZKSC SC ZC42042c04ac4ac4acacadc 








~ 


BOR 10) AO OE ..O: 4: 0 Co-SO. OY 0 G1 ©. iB 0) '@..0 INO. HOO 


DFFO: 
DFF1: 
DFF2: 
DFF3: 
DFF4: 
DFF5: 
DFF6: 
DFF7: 
DFF8: 
DFF9: 
Os: 
1 
23 
B55 
4: 


¢ 


¢ 


¢ 


¢ 








‘Ne 


Wve how Hw oO ¢ 


IN Ne 
oe 


DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlop 
DFlipFlo 
DFlipFlo 
DFlipFlo 
DFlipFlo 
DFlipFlo 





OneBin po 
tl, PSVo 
OneBin p 
t2, PSVo 
OneBin p 
PSVO 











OneBin p 
t10, PSVo 
OneBin p 
t1l1, PSVo 


0 
0 
0 
0 
0 
0 
0 
0 
0 


OneBin p 
t12, PSVou 
OneBin p 
t13, PSVou 
OneBin p 
t14, PSVo 


OneBin p 














t15, PSVo 


URB63<=Input (47) ; 
PhaseInc63<=Input (46 downto 42); 
Gain63<=Input (41 downto 38); 


po 
po 
po 
po 
po 
po 
po 
po 
po 





Fy. FS ae Eo Bie Ee. AT Ue ee 


Oo 
(e) 


Pp 
Pp 
Pp 
Pp 
Pp 


GS Og 
0000 


po 


1, 


KN 
~ 


BKB KH WwW 





TOtKR OR OKA K DKW 


Fy ARS 


ct 


ct 








ort 
E15; 











































































































































































































































































































t map (CLK, LD, RESET, PRB, PRB1, PRBinot); 

t map (CLK, LD, RESET, PRB1, PRB2, PRB2not); 

t map (CLK, LD, RESET, PRB2, PRB3, PRB3not); 

t map (CLK, LD, RESET, PRB3, PRB4, PRB4not); 

t map (CLK, LD, RESET, PRB4, PRB5, PRB5Snot); 

t map (CLK, LD, RESET, PRB5, PRB6, PRBénot); 

t map (CLK, LD, RESET, PRB6, PRB7, PRB7/not); 

t map (CLK, LD, RESET, PRB7, PRB8, PRB8not); 

t map (CLK, LD, RESET, PRB8, PRB9, PRB9not); 

t map (CLK, LD, RESET, PRB9, PRB10, PRB1Onot); 
rt map (CLK, LD, RESET, PRB10O, PRB11, PRBlinot); 
rt map (CLK, LD, RESET, PRB11, PRB12, PRB12not); 
rt map (CLK, LD, RESET, PRB12, PRB13, PRB13not); 
rt map (CLK, LD, RESET, PRB13, PRB14, PRB14not); 
rt map (CLK, LD, RESET, PRB14, PRB15, PRB15Snot); 
ap (DRFM1, PhaseInc0O, Gain0O, URBO, UNP, PRB, 

1, Il, Q, I, ODVout0, PSVout0, DRFMO, CLK); 

ap (DRFM2, PhaseIncl, Gainl, URB1, UNP, PRB, 

2, 12, Q1, I1, ODVout1, PSVoutl, DRFM1, CLK); 

ap (DRFM3, PhaseInc2, Gain2, URB2, UNP, PRB, 

3, 13, Q2, 12, ODVout2, PSVout2, DRFM2, CLK); 

ap (DRFM4, PhaseInc3, Gain3, URB3, UNP, PRB, 

4, 14, Q3, 13, ODVout3, PSVout3, DREFM3, CLK); 

ap (DRFM5, PhaseInc4, Gain4, URB4, UNP, PRB1, 

5, 15, Q4, 14, ODVout4, PSVout4, DREM4, CLK); 

ap (DRFM6, PhaseInc5, Gain5, URB5, UNP, PRB1, 

6, 16, Q5, 15, ODVout5, PSVout5, DRFM5, CLK); 

ap (DRFM7, PhaseInc6, Gain6, URB6, UNP, PRBI1, 

7, I7, Q6, 16, ODVout6, PSVout6, DREFM6, CLK); 

ap (DRFM8, PhaseInc7, Gain?7, URB7, UNP, PRB1, 

8, 18, Q7, I7, ODVout7, PSVout7, DRFM7, CLK); 

ap (DRFM9, PhaseInc8, Gain8, URB8, UNP, PRB2, 

9, 19, Q8, 18, ODVout8, PSVout8, DRFM8, CLK); 

ap (DRFM10, PhaseInc9, Gain9, URB9, UNP, PRB2, 
Q10, 110, Q9, I9, ODVout9, PSVout9, DRFM9, CL 

map (DRFM11, PhaseInc10, Gainl0, URB10, UNP, P 
Q11, I11, Q10, 110, DVout10, PSVout10, DRFM10, 

map (DRFM12, PhaseIncll, Gainll, URB11, UNP, P 
Ome HET “Oak dey cide; DVouti1l, PSVoutll1, DRFM11, 

map (DRFM13, PhaseIncl2, Gainl2, URB12, UNP, P 
O13 13 Ole 112; DVout12, PSVout12, DRFM12, 

map (DRFM14, PhaseIncl13, Gainl3, URB13, UNP, P 
QOl4, T24, O137- 113, DVout13, PSVout13, DRFM13, 

map (DRFM15, PhaseIncl4, Gainl4, URB14, UNP, P 
QL, T15,. O14; 114, DVout14, PSVout14, DRFM14, 
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AQecwaowaowaownowaAowWwAOoOWNOOWAOWHNOWHNOWAOWHOWHNOWAOWNHAOWAOWAOCWAO 























OneBin por 
tl6, PSVout 


OneBin por 
t17, PSVout 


OneBin por 
t18, PSVout 


OneBin por 
t19, PSVout 


OneBin por 
t20, PSVout2 


OneBin por 


ap (D 


Ql6, 
ap (D 
Ql7, 


ap ( 
Q18, 


ap (D 


Q19, 


ap (D 
Q20, 


ap (D 


RFM16, 
T16,-Q15, 


RFM17, 


I17, Q16, 


RFM18, 
118, Q17, 


RFM19, 
119, Q18, 


RFM20, 
I20, Q19, 


RFM21, 


I15, 0 


PhaselIncl 


I16, O 


I17, O 


118, O 


PhaselIncl 


119, O 


O 





t21, PSVout 








OneBin por 
t22, PSVout 


Q2l, 


ap (D 


Q22, 


I21, Q20, 
REM22, 


22,021, 


120, 


T2140 





OneBin por 
t23, PSVout2 


OneBin por 
t24, PSVout2 


OneBin por 
t25, PSVout2 


OneBin por 


ap ( 
Q23, 


ap (D 


Q24, 


ap (D 


Q25, 


ap (D 


RFM23, 
123%: O22, 


RFM24, 


I24, Q23, 


RFM25, 
125, Q24, 


RFM26, 


I22, 0 


I23, O 


I24, O 





t26, PSVout 


OneBin por 
t27, PSVout 


Q26, 


ap (D 
Q27, 


I26, Q25, 


RFM27, 


I27, Q26, 


125, /O 


PhaseInc2 


I26, O 











OneBin por 
t28, PSVout2 


OneBin por 
t29, PSVout2 


OneBin por 
t30, PSVout 


OneBin por 
t31, PSVout 


OneBin por 
t32, PSVout 


OneBin por 
t33, PSVout 








OneBin port 

















t34, PSVout34, 





m 


ap ( 
Q28, 


ap (D 


Q29, 
ap (D 
Q30, 


ap (D 


Q31, 


ap ( 
Q32, 


ap ( 
Q33, 





ap (D 
Q34, 


I3 


I3 


RFM28, 
I28, Q27, 


RFM29, 
I29, Q28, 


RFM30, 
I30, Q29, 


RFM31, 
I31, Q30, 


REM32, 
2, Q3l, 


RFM33, 
3, Q32, 





134, 











REM34, 
Q33, 


I27, O 


I28, O 


PhaseInc2 


I29, O 


I30, O 


131,20 


132, O 


133, O 


ve) 


PhaselIncl15, 


DVO 


6, 
DVO 


PhaseIncl7, 


DVO 


PhaselIncl18, 


DVO 


9, 


PhaseInc20, 


DVO 


PhaseInc21, 


DVO 


PhaseInc22, 


DVO 


PhaseInc23, 


DVO 


PhaseInc24, 


DVO 


PhaseInc25, 


DVO 


6, 
DVO 


PhaseInc27, 


DVO 


PhaseInc28, 


DVO 


PhaseInc30, 


DVO 


PhaseInc31, 


DVO 


PhaseInc32, 


DVO 


PhaseInc33, 





DVO 


Gainl15, 
utl15, 


Gainl6, 
WeL6, 


Gainl7, 
utl7, 


Gainl18, 
utl18, 


Gainl9, 
utl19, 


Gain20, 
ut20, 


Gain21, 
ut21, 


Gain22, 
UtEZ2, 


Gain23, 
Lt23; 


Gain24, 
ut24, 


Gain25, 
UEZ DS; 


Gain26, 
ut26, 


Gain27, 
ut27, 


Gain28, 
ut28, 




































































AQ°cwaowaowaowaowaowaAoOWnNOWQAOWHNOWHNOWAOWHOWHOWAOWAOCWAOWAOCWAO 



























































IN34: OneBin port 
DVout35, PSVout35, 
LK); 
IN35: OneBin port 
DVout36, PSVout36, 
LK); 
IN36: OneBin port 
DVout37, PSVout37, 
LK) ; 
IN37: OneBin port 
DVout38, PSVout38, 
LK) ; 
IN38: OneBin port 
DVout39, PSVout39, 
LK); 
IN39: OneBin port 
DVout40, PSVout40, 
LK) ; 
IN40: OneBin port 
DVout41, PSVout4l1, 
LK); 
IN41: OneBin port 
DVout42, PSVout42, 
LK); 
IN42: OneBin port 
DVout43, PSVout43, 
LK) ; 
IN43: OneBin port 
DVout44, PSVout44, 
LK) ; 
IN44: OneBin port 
DVout45, PSVout45, 
LK); 
IN45: OneBin port 
DVout46, PSVout46, 
LK); 
IN46: OneBin port 
DVout47, PSVout47, 
LK); 
IN47: OneBin port 
DVout48, PSVout48, 
LK); 
IN48: OneBin port 
DVout49, PSVout49, 
LK) ; 
IN49: OneBin port 
DVout50, PSVout50, 
LK); 
IN50: OneBin port 
DVout51, PSVout5l1, 
LK) ; 
IN51: OneBin port 
DVout52, PSVout52, 
LK) ; 
IN52: OneBin port 
DVout53, PSVout53, 
LK); 














m 


ap ( 


Q53, 


D 


D 


D 


D 


D 


D 





D 


RFM35, 
135, 


0 





1, 
O4 
2, 
O4 
3, 
QO4 
4, 
O4 
Sy 
O4 
6, 
O4 





7, 

QO4 
8, 
QO4 





9 





04 


RFM50, 


Q34, 


039, 139, O 
0, 
iy 
3, 
3; 
4, 
5, 
6, 
1, 


8, 





I50, O4 


RFM51, 
TS. 


RFM52, 
T52; 











RFM53, 
E33, 


9, 


Q50, 


Qs, 


PhaseInc34, 
134, O 


PhaseInc35, 


135; <0 


1367.0 


E3:h;°°0 


I38, O 


PhaseInc3 





PhaselInc4 
140, O 


PhaselInc4 
LAT <0 


PhaselInc4 
142, 0 


PhaselInc4 
£43.40 


PhaselInc4 
T445°°0 


PhaselInc4 
T45,- 0 





PhaselInc4 
146, O 


PhaselInc4 
I47, O 


PhaselInc4 
148, O 





PhaselInc4 
149, O 





PhaseInc50, 
£5040 


PhaseInc5Sl, 
LAO 





Q52, 


PhaseInc52, 
£525. 
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DVO 


DVO 


DVO 


DVO 


DVO 


Gain34 
ut34, 


Gain35 
ut35, 

















a U 


, U 




















ESTy 


t38, 











E52; 












































BIN 
ut54, PSVout54, O54, 154, Q53, 153, ODVout53, PSVout53, DRFM53, 
LK , 

IN54: OneBin port 

ut55, PSVout55, Q55, 155, Q54, 154, ODVout54, PSVout54, DRFM54, 
LK , 

IN55: OneBin port 

ut56, PSVout56, O56, 156, Q55, 155, ODVout55, PSVout55, DRFM55, 
6: OneBin port 

ut57, PSVout57, Q57, I57, Q56, 156, ODVout56, PSVout56, DRFM56, 
LK 1 

IN57: OneBin port 

ut58, PSVout58, 058, 158, Q57, I57, ODVout57, PSVout57, DREFM57, 
8: OneBin port 

ut59, PSVout59, O59, 159, Q58, 158, ODVout58, PSVout58, DRFM58, 


any 














ut60, PSVout60, O60, 160, Q59, 159, ODVout59, PSVout59, DRFM59, 
LK 1 

IN60: OneBin port map (DRFM61, PhaseInc60, Gain60, URB60, UNP, PRB15, 
Vout61, PSVout61, Q61, I61, Q60, I60, ODVout60, PSVout60, DREFM60, 
LK 
IN 
DVout62, PSVout62, Q62, 162, Q61, 161, ODVout6l, PSVout61, DRFM61, 
K 
N 
Vi 
K 


ae 



































I 
D 


ae) 















































ut63, PSVout63, Q63, 163, Q62, 162, ODVout62, PSVout62, DRFM62, 





























IN63: OneBin port map (PhaseSamp, PhaseInc63, Gain63, URB63, UNP, 
RB15, ODVin, PSVin, "00000000000000000", "00000000000000000", Q63, 
T63,O0DVout63, PSVout63, DRFM63, CLK); 


O 
C 
B 
O 
Cc 
B 
O 
C 
B 
O 
C 
B 
O 
C 
B 
ODV 
C 
B 
O 
Cc 
B 
O 
6 
B 
O 
C 
B 
O 
C 
B 
P 











-- Output Format: 











-- 63-41 | 40 | 39 | 38-22 | 21-5 | 4-0 

--unused | PSVout | ODVout | Q | I | DRFM 
Output (40) <=PSVout0; 

Output (39) <=ODVout0; 

Output (38 downto 22) <=Q; 

Output (21 downto 5)<=I; 

Output (4 downto 0)<=DRFMO; 

Output (63 downto 41)<="00000000000000000000000"; 


end SixtyFourBin; 


E. 128 BIN MACRO VHDL 


entity One28Bin is 

port (Input: in bit vector (63 downto 0); 
Output:out bit vector (63 downto 0); CLK: in bit); 
end One28Bin; 


architecture One28Bin of One28Bin is 


component OneBin is 


ves 


3: OneBin port map (DRFM54, PhaseInc53, Gain53, URB53, UNP, PRB13, 


map (DRFM55, PhaseInc54, Gain54, URB54, UNP, PRB13, 


map (DRFM56, PhaseInc55, Gain55, URB55, UNP, PRB13, 


map (DRFM57, PhaseInc56, Gain56, URB56, UNP, PRB14 


map (DRFM58, PhaseInc57, Gain57, URB57, UNP, PRB14 


map (DRFM59, PhaseInc58, Gain58, URB58, UNP, PRB14 





9: OneBin port map (DRFM60, PhaseInc59, Gain59, URB59, UNP, PRB14 


1: OneBin port map (DRFM62, PhaseInc61, Gain61, URB61, UNP, PRB15, 


2: OneBin port map (DRFM63, PhaseInc62, Gain62, URB62, UNP, PRB15, 


port (PhaseSamp, PhaseInc: in bit vector (5 downto 1); 

Gain: in bit vector (4 downto 1); 

URB, UNP, PRB, ODVin, PSVin: in bit; 

OtherBinDataSIN, OtherBinDataCOS:in bit vector (17 downto 1); 
Q, I: out bit vector (17 downto 1); 

ODVout, PSVout: out bit; 

DRFM: out bit vector (5 downto 1); 

Chis: bat); 
end component; 
component DFlipFlop 

port (CLK, LD, RESET, D: in bit; 
Q: inout bit; Qnot: out bit); 
end component; 























signal Q, I, Q1,11,02,12,03,13,04,14,05,15,06,16,07,17,08,18,09,19, 
Q10,110,Q11,111,Q12,112,913,113,Q14,114,Q15,115: bit vector (17 downto 
1) :="00000000000000000"; 

signal 916, 116, 
Q17,117,Q018,118,019,119,020,120,021,121,022,122,023,123,024,124,025,125 








Q26,126,Q027,127,028,128,029,129,030,130,Q31,131: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 932, 132, 
Q33,133,034,134,035,135,036,136,037,137,038,138,039,139,040,140,041,141 


Q42,142,043,143,044,144,045,145,046,146,047,147: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 048, 148, 
049,149,050,150,051,151,052,152,053,153,054,154,055,155,056,156,057, 157 


Q58,158,Q59,159,Q60, 160,061, 161,062,162,063,163: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 964, 164, 
Q65,165,066,166,067,167,068,168,069,169,Q70,170,071,171,072,172,073,173 


Q74,174,Q75,175,Q76,176,Q77,177,Q78,178,Q79,179: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 980, I80, 
Q81,181,082,182,083,183,084,184,085,185,086,186,087,187,088, 188,089,189 


Q90,190,Q091,191,092,192,093,193,094,194,095,195: bit _vector (17 downto 
1) :="00000000000000000"; 

signal 096, 196, 
Q97,197,098,198,099,199,0100,1100,0101, 1101, 9102,1102,0103,1103,90104,11 
04,Q105,1105, 

Q106,1106,0107, 1107, 0108, 1108,9109,1109,Q110,1110,Q111,1111: bit vector 
(17 downto 1) :="00000000000000000"; 

signal 9112, 1112, 

QOLl3, 11:1379011-4; 2114,0115,.1115,O0116; £11.6, 0117, 111-7 0118, £11-8:;,0119;,.1119;0 
120,1120,Q121,1121, 
Q122,1122,0123,1123,Q124,1124,9125,1125,Q126,1126,Q127,1127: bit vector 
(17 downto 1) :="00000000000000000"; 














signal DRFMO, DRFM1,DRFM2,DRFM3,DRFM4,DRFM5, DRFM6, DRFM7, DRFM8, DRFM9, 
DRFM10, DRFM11,DRFM12,DRFM13,DRFM14,DRFM15: bit vector (5 downto 
1) :="00000"; 
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gn 


Be 
Qe 
| 


ve) 
Fy 
z 


10 


gn 


Oo 
ve) 
ie) 














DREM 


Vout 








al 


@ 
bh 











WO 
OY 
~ 


al 





122, 


PSVO 
t7,PSVo 
US} oats 
PSVO 
t23,PSV 
Este 
PSVou 
39, PSV 
47: b 
PSVO 
55, PSV 
63: b 
PSVou 


1 





Wet ¢ 


Ss ct ¢ 


Oc ¢ 














Gh FPO EER Oo Gh EO» Gh FO. cGl 


cc ¢ 








PSVO 
, PSVO 
PSVO 











t112,PSVo 
t119,PSVo 











t126,PSVou 


D D 

















D D 


RFM108, 


RFM114, 








RFM124, 








6, F oH Ea 


PSVO 























t97,PSVo 





tl1l1: bi 





t127: 


RFM19, 
RFM29, 


RFM35, 
RFM45, 


RFM51, 
RFM61, 


RFM67, 
RFM77, 


RFM83, 
RFM93, 


D 








RFM99, 


t1,PSVo 
t9,PSVou 


C25, 


t41, 


E73; :E 


t98, 
ut104, PSVout105, PSVout106, 


D 











PSVO 


PSVO 


PSVO 


PSVO 


PSVou 
PSVO 


PSVO 

















PSVO 


Qi! 2 


RFM20, 
RFM30, 


RFM36, 
RFM46, 


RFM52, 
RFM62, 


RFM68, 
RFM78, 


RFM84, 
RFM94, 





t2,PSVo 


EL, 














RFM100, 


DRFM109,DRFM110,DRFM111: 


DRFM125, DRFM126, DRFM127: 





t10,PSVou 


t26, 


t42, 


8, 








99, 


ut113,PSVout114,PSVout115, 
ut120,PSVout121,PSVoutl122, 
bits="0"; 


D 





PSVO 


PSVO 


PSVO 


PSVO 
t74,E 


RFM21,DREFM22,D 
RFM31: bit _vec 


RFM23,DREFM24,DRFM25, 
tor (5 downto 


RFM37,DRFM38,D 
RFM47: bit _vec 


RFM39,DRFM40, DREFM41, 
tor (5 downto 


RFM53, DRFM54, DRFM55, DRFM56, DREM57, 
RFM63: bit vector (5 downto 


RFM69,DREFM70, DRFM71,DREFM72,DRFM73, 
RFM79: bit vector (5 downto 


RFM85,DRFM86, DRFM87, DRFM88, DRFM89, 
RFM95: bit vector (5 downto 














DRFM101, DRFM102, DRFM103, DRFM104, DRF 


bit vector (5 downto 


DRFM115, DRFM116, DRFM117, DRFM118, DRFM119, DRFM120 


bit vector (5 downto 





t3,PSVout4, 


11,PSVou 


PSVout5, PSVout6, 
t12,PSVout13,PSVou 


t14 


t19,PSVo 
PSVout27,PSVo 


t20,PSVo 
t28,PSVo 


t21,PSVo 
E29, 


t2 
PSVO 





t3 


PSVO 
t44,PSVo 


PSVO 
t45, 


PSVO PSVo 


i) PSVoO 


0, PSVo 


PSVO 
1, 


PSVo PSVO 


PSVO 
t76,E 


PSVO 
C77, E 















































8 


8 












































PSVout100, PSVo 


PSVout107, 


ut101,PSVout102, 
PSVout108, PSVout109,P 


PSVout116, 
PSVout123, 


PSVout117, PSVout118, 
PSVout124, PSVout125,P 








77 





































































































































































































signal ODVout0, ODVout1, ODVout2, ODVout3, ODVout4, ODVout5, ODVout6, 
ODVout7, ODVout8, ODVout9, ODVout10, ODVout11, ODVout12, ODVout13, ODVout14, OD 
Vout15: bit:='0'; 

signal ODVout16, ODVout17,ODVout18, ODVout19, ODVout20, ODVout21,O0DVout22, 
ODVout23, ODVout24, ODVout25, ODVout26, ODVout27, ODVout28, ODVout29, ODVout30 
,ODVout31: bit:='0'; 

signal ODVout32, O0DVout33, ODVout34, ODVout35, ODVout36, ODVout37, ODVout38, 
ODVout39, ODVout40, ODVout41, ODVout42, ODVout43, ODVout 44, ODVout45, ODVout46 
,ODVout47: bit:='0'; 

signal ODVout48, ODVout49, ODVout50, ODVout51, ODVout52, ODVout53, ODVout54, 
ODVout55, ODVout56, ODVout57, ODVout58, ODVout59, ODVout60, ODVout61, ODVout62 
,ODVout63: bit:='0'; 

signal ODVout64, ODVout6é5, ODVout66, ODVout 67, ODVout68, ODVout69, ODVout70, 
ODVout71, ODVout72, ODVout73, ODVout 74, ODVout75, ODVout76, ODVout77, ODVout78 
,ODVout79: bit:='0'; 

signal ODVout80,O0DVout81,O0DVout82, ODVout 83, ODVout 84, ODVout85, ODVout 86, 
ODVout87, ODVout88, ODVout89, ODVout 90, ODVout 91, ODVout 92, ODVout 93, ODVout 94 
,ODVout95: bit:='0'; 

signal 

ODVout96, ODVout97, ODVout 98, ODVout 99, ODVout100, ODVout101,O0DVout102, 
ODVout103, ODVout104, ODVout105, ODVout106, ODVout107, ODVout108, ODVout109,0 
DVout110,ODVout111: bit:='0'; 

signal 

ODVout112, ODVout113, ODVout114, ODVout115, ODVout116, ODVout117,ODVout118, 
ODVout119, ODVout120, ODVout121, ODVout122, ODVout123, ODVout124, ODVout125,0 
DVout126,O0DVout127: bit:='0'; 

signal Gain0O,Gainl,Gain2,Gain3,Gain4,Gain5,Gain6,Gain7,Gain8,Gain9, 
Gainl0,Gainll,Gainl2,Gainl13,Gainl4,Gain15: bit vector (4 downto 

1) :="0000"; 

signal 


Gainl6,Gainl7,Gainl8,Gainl19,Gain20,Gain21,Gain22,Gain23,Gain24,Gain25, 








Gain26,Gain27,Gain28,Gain29,Gain30,Gain31: bit vector (4 downto 


1) :="0000"; 
signal 


Gain32,Gain33,Gain34,Gain35,Gain36,Gain37,Gain38,Gain39,Gain40,Gain4l1, 
Gain42,Gain43,Gain44,Gain45,Gain46,Gain47: bit vector (4 downto 


1) :="0000"; 
signal 


Gain48,Gain49,Gain50,Gain51,Gain52,Gain53,Gain54,Gain55,Gain56,Gain57, 
Gain58,Gain59,Gain6o0,Gain6ol,Gaino2,Gain6o3: bit vector (4 downto 


1) :="0000"; 
signal 


Gain6o4,Gain6o5, Gain66, Gain6o7,Gain68,Gain69,Gain7/0,Gain71,Gain72,Gain73, 
Gain74,Gain75,Gain76,Gain77,Gain78,Gain79: bit vector (4 downto 


1) :="0000"; 
signal 


Gain80,Gain81,Gain82,Gain83,Gain84,Gain85,Gain86,Gain87,Gain88,Gain89, 
Gain90,Gain91,Gain92,Gain93,Gain94,Gain95: bit vector (4 downto 


1) :="0000"; 
signal 


Gain96,Gain97,Gain98,Gain99,Gainl00,Gain101,Gain102,Gainl103,Gain104, Gai 


n105, 


Gainl06, Gainl07,Gainl08,Gain1l09,Gainl10,Gainlll: bit vector (4 downto 


1) :="0000"; 


78 


signal 


Gain112,Gain113,Gain114,Gain115,Gain1l16,Gainl117,Gain118,Gain119,Gain120 


,Gainl21, 





Gainl22,Gain123,Gain124,Gain125,Gainl26,Gainl27: bit vector (4 downto 


1) :="0000"; 


signal 


haselInc7, 





PhaselInc96, 


signal 


U 


~ 

















cl14,PhaseIncl5 


PhaseInc88, PhaselInc89, 
Inc94, PhaseInc95 bit 
signal 





PhaseInc97, 


seIncl02,PhaseIncl03, 
PhaseIncl04, PhaseInc105, PhaseIncl06, 
,PhaseInc110, PhaseInclll 


signal 

PhaseIncl6, PhaseIncl7, PhaselInc18, 
Inc22,PhaselInc23, 

PhaseInc24, PhaseInc25, PhaselInc26, 
Inc30,PhaseInc31 bit _vector (5 
signal 

PhaseInc32, PhaseInc33, PhaselInc34, 
Inc38, PhaseInc39, 

PhaseInc40, PhaseInc41, PhaseInc42, 
Inc46, PhaseInc47 bit_vector (5 
signal 

PhaseInc48, PhaseInc49, PhaselInc50, 
Inc54,PhaselInc55, 


PhaseInc56, PhaseInc57, PhaseInc58, 
Inc62,PhaseInc63 bit vector (5 
signal 

PhaseInc64, PhaseInc65, PhaselInc66, 
Inc70,PhaselInc71, 

PhaseInc72, PhaseInc73,PhaselInc74, 
Inc78, PhaseInc79 bit _vector (5 
signal 

PhaseInc80, PhaseInc81,PhaselInc82, 
Inc86, PhaselInc87, 


PhaseInc90, 
_vector (5 





PhaseInc98, 














bit vector 


PhaselIncl9, 


PhaseInc27, 


PhaseInc35, 


PhaseInc43, 


PhaseInc5Sl, 


PhaseInc59, 


PhaseInc67, 


PhaseInc75, 


PhaseInc83, 


PhaseInc91, 





PhaseInc99, 





PhaseInc20, 


PhaseInc28, 


downto 1) :="00000"; 


PhaseInc36, 


PhaseInc44, 


downto 1) :="00000"; 


PhaseInc52, 


PhaseIncé60, 


downto 1) :="00000"; 


PhaseInc68, 


PhaseInc76, 


downto 1) :="00000"; 


PhaseInc84, 


PhaseInc92, 


downto 1) :="00000"; 





PhaseInc21, 


PhaseInc29, 


PhaseInc37, 


PhaseInc45, 


PhaseInc53, 


PhaseIncél, 


PhaseInc69, 


PhaseInc77, 


PhaseInc85, 





PhaseInc93, 


PhaselIncO, PhaseIncl, PhaseInc2, PhaseInc3, PhaseInc4, PhaselInc5, PhaselInc6,P 


PhaselInc8, PhaselInc9, PhaseIncl0, PhaseIncll, PhaseIncl2, PhaseIncl13, PhaselIn 
bit vector (5 downto 1) :="00000"; 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 





Phase 


PhaseInc100, PhaseInc101, Pha 


PhaseInc107, PhaseInc108, PhaseInc109 
(5 downto 1):="00000"; 


haseIncl112, PhaseInc113, PhaseInc114, PhaseInc115, PhaseInc116, PhaseIncl17 
PhaseInc118,PhaseIncl19, 


PhaseInc120, PhaseInc121, PhaseInc122, PhaseInc123, PhaseInc124, PhaseIncl125 
(5 downto 1):="00000"; 


RB7, URB8, URB9, URB10, URB11, URB12, URB 


URB22, URB23, URB24, URB25, URB26, URB27 








,PhaseInc126, PhaseInc127 bit vector 
signal 

URBO, URB1, URB2, URB3, URB4, URB5, URB6,U 

13,URB14,URB15: bit :='0'; 

signal 

URB16, URB17, URB18, URB19, URB20,URB21, 

,URB28,URB29,URB30,URB31: bit :='0'; 

signal 

URB32, URB33,URB34,URB35,URB36,URB37, 

, URB44, URB45, URB46, URB47: bit :='0'; 





719 


URB38,URB39,URB40, URB41,URB42, URB43 
























































































































































































































































URB48, URB49, URB50, URB51, URB52, URB53, URB54, URB55, URB56, URB57, URB58, URB59 
,URB60, URB61, URB62,URB63: bit :='0'; 

signal 

URB64,URB65, URB66, URB67, URB68, URB69, URB70, URB71, URB72,URB73,URB74,URB75 
,URB76,URB77,URB78,URB79: bit :='0'; 

signal 

URB80, URB81,URB82,URB83,URB84, URB85, URB86, URB87, URB88, URB89, URB90, URB91 
,URB92,URB93,URB94,URB95: bit :='0'; 

signal 
URB96,URB97,URB98,URB99, URB100, URB101,URB102,URB103, URB104,URB105, URB10 
6, URB107,URB108,URB109,URB110,URB111: bit :='0'; 

signal 
URB112,URB113,URB114, URB115, URB116, URB117,URB118,URB119,URB120,URB121,U 
RB122,URB123,URB124,URB125,URB126,URB127: bit :='0'; 

signal PhaseSamp: bit vector (5 downto 1):= "00000"; 

signal UNP, PSVin, ODVin: bit :='0'; 

signal LD, RESET, PRB, PRB1l, PRB2, PRB3, PRB4, PRB5, PRB6, PRB7, PRB8, 
PRB9, PRB1O, PRB11, PRB12, PRB13, PRB14, PRB15, 

PRB16, PRB17, PRB18, PRB19, PRB20, PRB21, PRB22, PRB23, PRB24, PRB25, 
PRB26, PRB27, PRB28, PRB29, PRB30, PRB31, 

PRB1not, PRB2not, PRB3not, PRB4not, PRB5not, PRB6not, PRB7not, PRB8not, PRB9not 
,PRB10not, PRB11not, PRB12not, PRB13not, PRB14not, PRB15not, 

PRB16not, PRB17not, PRB18not, PRB19not, PRB20not, PRB21not, PRB22not, PRB23not 
, PRB24not, PRB25not, PRB26not, PRB27not, 

PRB28not, PRB29not, PRB30not, PRB31lnot:bit; 

Begin -- BINO is the primary output 

--Input: formats, cycle begins when PRB=1, 1 format per clock 

-- ten bits of each bin: 10 | 9-5 4-1 | 

-- 63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 

--unused bin3 bin2 binl bind |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 

--unused bin7 bin6 bind bin4 |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 

--unused binll| binl0| bin9 bin8 |sample |PSVin |UNP |PRB 

-- 63-48 |47-38 |37-28 |27-18 17-8 7=3 2 1 0 

--unused binl5| binl4| bin13| binl2|sample |PSVin |UNP |PRB 

-- 63-8 7-3 2 1 0 

--unused sample |PSVin |UNP |PRB 

-- more bins in same pattern up to 128... 

-- The first sample can be entered on clock 129 if PSVin and UNP are 
taken high 

LD<='1'; 

RESET<='0'; 











PRB<=Input (0); 
UNP<=Input (1) ; 
PSVin<=Input (2 
PhaseSamp<=Inp 
-- Bins 0,4,8, 
URBO<=Input (17 
PhaseInc0<=Inp 
Gain0<=Input (1 
URB4<=Input (17 
PhaseInc4<=Inp 











); 

ut (7 downto 3) 
il 
); 


‘ls 
)3 


downto 8); 











, 


ut(16 downto 12); 


ut(16 downto 12); 


80 


2,16,20,24,28,32,36,40,44,48,52,56,60...124 data 


Gain4<=Input (11 downto 8); 
URB8<=Input (17); 
PhaseInc8<=Input(16 downto 12); 
Gain8<=Input (11 downto 8); 
URB12<=Input (17); 
PhaseInc12<=Input(16 downto 12); 
Gainl2<=Input (11 downto 8); 
URB16<=Input (17); 
PhaseIncl6<=Input(16 downto 12); 
Gainl6<=Input (11 downto 8); 
URB20<=Input (17); 
PhaseInc20<=Input(16 downto 12); 
Gain20<=Input (11 downto 8); 
URB24<=Input (17); 
PhaseInc24<=Input (16 downto 12); 
Gain24<=Input (11 downto 8); 
URB28<=Input (17); 
PhaseInc28<=Input(16 downto 12); 
Gain28<=Input (11 downto 8); 
URB32<=Input (17); 
PhaseInc32<=Input (16 downto 12); 
Gain32<=Input (11 downto 8); 
URB36<=Input (17); 
PhaseInc36<=Input(16 downto 12); 
Gain36<=Input (11 downto 8); 


CH -Ae 














URB40<=Input (17); 
PhaseInc40<=Input(16 downto 12); 
Gain40<=Input(11 downto 8); 
URB44<=Input (17); 
PhaseInc44<=Input(16 downto 12); 
Gain44<=Input (11 downto 8); 
URB48<=Input (17); 
PhaseInc48<=Input(16 downto 12); 
Gain48<=Input (11 downto 8); 





URB52<=Input (17); 
PhaseInc52<=Input(16 downto 12); 
Gain52<=Input (11 downto 8); 
URB56<=Input (17); 
PhaseInc56<=Input(16 downto 12); 
Gain56<=Input (11 downto 8); 
URB60<=Input (17); 
PhaseInc60<=Input(16 downto 12); 
Gain60<=Input (11 downto 8); 
URB64<=Input (17); 
PhaseInc64<=Input(16 downto 12); 
Gain64<=Input (11 downto 8); 
URB68<=Input (17) ; 
PhaseInc68<=Input (16 downto 12); 
Gain68<=Input (11 downto 8); 
URB72<=Input (17); 
PhaseInc72<=Input(16 downto 12); 
Gain72<=Input (11 downto 8); 
URB76<=Input (17); 
PhaseInc76<=Input(16 downto 12); 
Gain76<=Input (11 downto 8); 
URB80<=Input (17); 
PhaseInc80<=Input (16 downto 12); 

































































Gain80<=Input (11 downto 8); 
URB84<=Input (17); 
PhaseInc84<=Input (16 downto 12); 
Gain84<=Input (11 downto 8); 
URB88<=Input (17); 
PhaseInc88<=Input(16 downto 12); 
Gain88<=Input (11 downto 8); 
URB92<=Input (17); 
PhaseInc92<=Input(16 downto 12); 
Gain92<=Input (11 downto 8); 
URB96<=Input (17); 
PhaseInc96<=Input(16 downto 12); 
Gain96<=Input (11 downto 8); 


URB100<=Input (17); 
PhaseInc100<=Input (16 downto 12); 
Gainl00<=Input(11 downto 8); 
RB104<=Input (17); 


ll ct ¢ 


PhaseInc104<=Input (16 downto 12); 
Gainl04<=Input (11 downto 8); 
URB108<=Input (17); 
PhaseInc108<=Input (16 downto 12); 
Gainl08<=Input (11 downto 8); 
URB112<=Input (17); 
PhaseInc112<=Input (16 downto 12); 
Gainl12<=Input (11 downto 8); 
RB116<=Input (17); 


PhaseIncll6< 
Gainll16é<=Inp 
URB120<=Inpu 
PhaseIncl20< 
Gainl20<=Inp 
URB124<=Input (17); 
PhaseInc124<=Input (16 downto 12); 
Gainl24<=Input (11 downto 8); 


Input (16 downto 12); 
t(11 downto 8); 
(17); 
Input (16 downto 12); 
t(11 downto 8); 


ll ct ¢ 














ct ¢ 





























-- Bins 1,5,9,13,17,21,25,29, 33,37,41,45,49,53,57,61...125 data 
URB1<=Input (27); 

PhaseIncl<=Input (26 downto 22); 

Gainl<=Input (21 downto 18); 


URB5<=Input (27); 
PhaseInc5<=Input (26 downto 22); 
Gain5<=Input (21 downto 18); 








ct ¢ 


URB9<=Input (27); 
PhaseInc9<=Input (26 downto 22); 
Gain9<=Input (21 downto 18); 
RB13<=Input (27); 












































PhaseInc13<=Input (26 downto 22); 
Gainl3<=Input (21 downto 18); 
URB17<=Input (27) ; 
PhaseIncl7<=Input (26 downto 22); 
Gainl7<=Input (21 downto 18); 
URB21<=Input (27) ; 
PhaseInc21<=Input (26 downto 22); 
Gain21<=Input (21 downto 18); 
URB25<=Input (27) ; 
PhaseInc25<=Input (26 downto 22); 
Gain25<=Input (21 downto 18); 
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Dp) 


G 








PhaseInc33< 
Gain33<=Inp 


PhaseInc37< 
Gain37<=Inp 


PhaselInc4 


2 
Gain4 


n 
U is) 
PhaseInc45< 
Gain4 n 
Pp 
9 


PhaselInc4 
Gain4 


PhaseInc53< 
Gain53<=Inp 


PhaseInc57< 
Gain57<=Inp 


PhaseInc61l< 
Gain61<=Inp 


PhaseInc65< 
Gain65<=Inp 


PhaseInc69< 
Gain69<=Inp 


PhaseInc73< 


D 
Gain73<=Inpu 
RB77<=Input 


PhaseInc97< 


RB29<=Inpu 


PhaseInc29<= 
Gain29<=Inp 


RB33<=Inpu 


RB37<=Inpu 


RB41<=Inpu 
1<=I 
RB45<=In 
5<=I 
9<=In 





RB4 








9<=Inp 
RB53<=Inpu 





RB57<=Inpu 


RB61<=Inpu 


RB65<=Inpu 


RB69<=Inpu 


RB73<=Inpu 





haselInc77< 
ain77<=Inp 


haseInc81< 
ain81<=Inp 


haseInc85< 
ain85<=Inp 


haselInc89< 
ain89<=Inp 


haseInc93< 
ain93<=Inp 
RB97<=Inpu 








ain97<=Inp 
RB101<=Inp 











RB81<=Input 
RB85<=Input 
RB8 9<=Input 


RB93<=Input 


ct ¢ 














PhaseInc101<=Inp 








Ex (2273). 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(2°7).4 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
(27); 
Input (26 down 
t(21 downto 1 
ECO h) 3 





to 22); 
8); 


to 22); 
8); 


EO" :22).% 
8); 


to 22); 
8); 


to 22); 
8); 


to 22); 
8); 


to: 22); 
8); 


to 22); 
8); 


to 22); 
8); 


to 22); 
8); 


to 22); 
8); 


to 22); 
8); 


EO 22)" 
8); 


to 22); 
8); 


to 22); 
8); 


O22) 
8); 


to 22); 
8); 





to 22); 
8); 


ut (26 downto 22); 


Gainl01<=Input (21 downto 18); 
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URB105<=Input (27); 
PhaseInc105<=Input (26 downto 22); 
Gainl05<=Input (21 downto 18); 
URB109<=Input (27); 
PhaseInc109<=Input (26 downto 22); 
Gainl09<=Input (21 downto 18); 
URB113<=Input (27); 
PhaseInc113<=Input (26 downto 22); 
Gainl13<=Input (21 downto 18); 
URB117<=Input (27); 
PhaseIncl17<=Input (26 downto 22); 
Gainl17<=Input (21 downto 18); 
URB121<=Input (27); 
PhaseInc121<=Input (26 downto 22); 
Gainl21<=Input (21 downto 18); 
URB125<=Input (27); 
PhaseInc125<=Input (26 downto 22); 
Gainl25<=Input (21 downto 18); 

















-- Bins 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62...126 data 
URB2<=Input (37); 

PhaseInc2<=Input (36 downto 32); 

Gain2<=Input (31 downto 28); 
URB6<=Input (37); 
PhaseInc6<=Input (36 downto 32); 
Gain6<=Input (31 downto 28); 
URB10<=Input (37); 
PhaseInc1l0<=Input (36 downto 32); 
Gainl0<=Input (31 downto 28); 
URB14<=Input (37); 
PhaseIncl14<=Input (36 downto 32); 
Gainl4<=Input (31 downto 28); 
URB18<=Input (37) ; 
PhaseInc18<=Input (36 downto 32); 
Gainl8<=Input (31 downto 28); 
URB22<=Input (37) ; 
PhaseInc22<=Input (36 downto 32); 
Gain22<=Input (31 downto 28); 
URB2 6<=Input (37); 
PhaseInc26<=Input (36 downto 32); 
Gain26<=Input (31 downto 28); 
URB30<=Input (37) ; 
PhaseInc30<=Input (36 downto 32); 
Gain30<=Input (31 downto 28); 
URB34<=Input (37) ; 
PhaseInc34<=Input (36 downto 32); 
Gain34<=Input (31 downto 28); 
URB38<=Input (37) ; 
PhaseInc38<=Input (36 downto 32); 
Gain38<=Input (31 downto 28); 
URB42<=Input (37) ; 
PhaseInc42<=Input (36 downto 32); 
Gain42<=Input (31 downto 28); 
URB46<=Input (37) ; 
PhaseInc46<=Input (36 downto 32); 
Gain46<=Input (31 downto 28); 
URB50<=Input (37) ; 
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PhaseInc50<=Input (36 downto 32); 
Gain50<=Input (31 downto 28); 
URB54<=Input (37) ; 
PhaseInc54<=Input (36 downto 32); 
Gain54<=Input (31 downto 28); 
URB58<=Input (37) ; 
PhaseInc58<=Input (36 downto 32); 
Gain58<=Input (31 downto 28); 
URB62<=Input (37) ; 
PhaseInc62<=Input (36 downto 32); 
Gain62<=Input (31 downto 28); 
URB66<=Input (37) ; 
PhaseInc66<=Input (36 downto 32); 
Gain66<=Input (31 downto 28); 
URB70<=Input (37) ; 
PhaseInc70<=Input (36 downto 32); 
Gain70<=Input (31 downto 28); 
URB74<=Input (37) ; 
PhaseInc74<=Input (36 downto 32); 
Gain74<=Input (31 downto 28); 
URB78<=Input (37) ; 
PhaseInc78<=Input (36 downto 32); 
Gain78<=Input (31 downto 28); 
URB82<=Input (37); 
PhaseInc82<=Input (36 downto 32); 
Gain82<=Input (31 downto 28); 

URB8 6<=Input (37) ; 
PhaseInc86<=Input (36 downto 32); 
Gain86<=Input (31 downto 28); 
URB90<=Input (37); 
PhaseInc90<=Input (36 downto 32); 
Gain90<=Input (31 downto 28); 
URB94<=Input (37) ; 
PhaseInc94<=Input (36 downto 32); 
Gain94<=Input (31 downto 28); 
URB98<=Input (37) ; 
PhaseInc98<=Input (36 downto 32); 
Gain98<=Input (31 downto 28); 
URB102<=Input (37); 
PhaseInc102<=Input (36 downto 32); 
Gainl02<=Input (31 downto 28); 
URB106<=Input (37); 
PhaseInc106<=Input (36 downto 32); 
Gainl06<=Input (31 downto 28); 
URB110<=Input (37); 
PhaseInc110<=Input (36 downto 32); 
Gainl10<=Input (31 downto 28); 
URB114<=Input (37); 
PhaseInc114<=Input (36 downto 32); 
Gainl14<=Input (31 downto 28); 
URB118<=Input (37); 
PhaseInc118<=Input (36 downto 32); 
Gain1l18<=Input (31 downto 28); 
URB122<=Input (37); 
PhaseInc122<=Input (36 downto 32); 
Gainl22<=Input (31 downto 28); 
URB126<=Input (37); 
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PhaseInc126<=Input (36 downto 32); 
Gainl26<=Input (31 downto 28); 


-- Bins 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63...127 data 



























































URB3<=Input (47); 
PhaseInc3<=Input (46 downto 42); 
Gain3<=Input (41 downto 38); 
URB7<=Input (47); 
PhaseInc7<=Input (46 downto 42); 
Gain7<=Input (41 downto 38); 
URB11<=Input (47); 
PhaseIncll<=Input (46 downto 42); 
Gainll<=Input (41 downto 38); 
URB15<=Input (47) ; 
PhaseInc15<=Input (46 downto 42); 
Gainl5<=Input (41 downto 38); 
URB19<=Input (47) ; 
PhaseIncl19<=Input (46 downto 42); 
Gainl9<=Input (41 downto 38); 
URB23<=Input (47) ; 
PhaseInc23<=Input (46 downto 42); 
Gain23<=Input (41 downto 38); 
URB27<=Input (47) ; 
PhaseInc27<=Input (46 downto 42); 
Gain27<=Input (41 downto 38); 
URB31<=Input (47) ; 
PhaseInc31<=Input (46 downto 42); 
Gain31<=Input (41 downto 38); 
URB35<=Input (47) ; 
PhaseInc35<=Input (46 downto 42); 
Gain35<=Input (41 downto 38); 
URB39<=Input (47) ; 
PhaseInc39<=Input (46 downto 42); 
Gain39<=Input (41 downto 38); 
URB43<=Input (47) ; 
PhaseInc43<=Input (46 downto 42); 
Gain43<=Input (41 downto 38); 
URB47<=Input (47) ; 
PhaseInc47<=Input (46 downto 42); 
Gain47<=Input (41 downto 38); 
URB51<=Input (47) ; 
PhaseInc51<=Input (46 downto 42); 
Gain51<=Input (41 downto 38); 
URB55<=Input (47) ; 
PhaseInc55<=Input (46 downto 42); 
Gain55<=Input (41 downto 38); 
URB59<=Input (47) ; 
PhaseInc59<=Input (46 downto 42); 
Gain59<=Input (41 downto 38); 
URB63<=Input (47) ; 
PhaseInc63<=Input (46 downto 42); 
Gain63<=Input (41 downto 38); 
URB67<=Input (47) ; 
PhaseInc67<=Input (46 downto 42); 
Gain67<=Input (41 downto 38); 
URB71<=Input (47) ; 
PhaseInc71<=Input (46 downto 42); 























86 




























































































Gain71<=Input (41 downto 38); 
URB75<=Input (47) ; 
PhaseInc75<=Input (46 downto 42); 
Gain75<=Input (41 downto 38); 
URB79<=Input (47) ; 
PhaseInc79<=Input (46 downto 42); 
Gain79<=Input (41 downto 38); 
URB83<=Input (47) ; 
PhaseInc83<=Input (46 downto 42); 
Gain83<=Input (41 downto 38); 
URB87<=Input (47) ; 
PhaseInc87<=Input (46 downto 42); 
Gain87<=Input (41 downto 38); 
URB91<=Input (47) ; 
PhaseInc91<=Input (46 downto 42); 
Gain91<=Input (41 downto 38); 
URB95<=Input (47) ; 
PhaseInc95<=Input (46 downto 42); 
Gain95<=Input (41 downto 38); 
URB99<=Input (47) ; 
PhaseInc99<=Input (46 downto 42); 
Gain99<=Input (41 downto 38); 
URB103<=Input (47); 
PhaseInc103<=Input (46 downto 42); 
Gainl03<=Input (41 downto 38); 
URB107<=Input (47); 
PhaseInc107<=Input (46 downto 42); 
Gainl07<=Input (41 downto 38); 
URB111<=Input (47); 
PhaseIncl1il<=Input (46 downto 42); 
Gainl11l<=Input (41 downto 38); 
URB115<=Input (47); 
PhaseInc115<=Input (46 downto 42); 
Gainl15<=Input (41 downto 38); 
URB119<=Input (47); 
PhaseInc119<=Input (46 downto 42); 
Gainl19<=Input (41 downto 38); 
URB123<=Input (47); 
PhaseInc123<=Input (46 downto 42); 
Gainl23<=Input (41 downto 38); 
URB127<=Input (47); 
PhaseInc127<=Input (46 downto 42); 
Gainl27<=Input (41 downto 38); 


















































































































































DFFO: DFlipFlop port map (CLK, LD, RESET, PRB, PRB1, PRBlinot); 
DFF1: DFlipFlop port map (CLK, LD, RESET, PRB1, PRB2, PRB2not); 
DFF2: DFlipFlop port map (CLK, LD, RESET, PRB2, PRB3, PRB3not); 
DFF3: DFlipFlop port map (CLK, LD, RESET, PRB3, PRB4, PRB4not); 
DFF4: DFlipFlop port map (CLK, LD, RESET, PRB4, PRB5, PRB5Snot); 
DFF5: DFlipFlop port map (CLK, LD, RESET, PRB5, PRB6, PRB6énot); 
DFF6: DFlipFlop port map (CLK, LD, RESET, PRB6, PRB7, PRB7not); 
DFF7: DFlipFlop port map (CLK, LD, RESET, PRB7, PRB8, PRB8not); 
DFF8: DFlipFlop port map (CLK, LD, RESET, PRB8, PRB9, PRB9not); 
DFF9: DFlipFlop port map (CLK, LD, RESET, PRB9, PRB10O, PRB10Onot); 
DFF10: DFlipFlop port map (CLK, LD, RESET, PRB10, PRB11, PRBlinot); 
DFF11: DFlipFlop port map (CLK, LD, RESET, PRB11, PRB12, PRB12not); 
DFF12: DFlipFlop port map (CLK, LD, RESET, PRB12, PRB13, PRB13not); 
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DFlipFlop port map (CLK, LD, RESET, PRB13, PRB14, PRB14not 
DFlipFlop port map (CLK, LD, RESET, PRB14, PRB15, PRB15Snot 
DFlipFlop port map (CLK, LD, RESET, PRB15, PRB16, PRB16not 
DFlipFlop port map (CLK, LD, RESET, PRB16, PRB17, PRB17not 
DFlipFlop port map (CLK, LD, RESET, PRB17, PRB18, PRB18not 
DFlipFlop port map (CLK, LD, RESET, PRB18, PRB19, PRB19not 
DFlipFlop port map (CLK, LD, RESET, PRB19, PRB20, PRB2Onot 
DFlipFlop port map (CLK, LD, RESET, PRB20, PRB21, PRB21not 
DFlipFlop port map (CLK, LD, RESET, PRB21, PRB22, PRB22not 
DFlipFlop port map (CLK, LD, RESET, PRB22, PRB23, PRB23not 
DFlipFlop port map (CLK, LD, RESET, PRB23, PRB24, PRB24not 
DFlipFlop port map (CLK, LD, RESET, PRB24, PRB25, PRB25not 
DFlipFlop port map (CLK, LD, RESET, PRB25, PRB26, PRB26not 
DFlipFlop port map (CLK, LD, RESET, PRB26, PRB27, PRB27not 
DFlipFlop port map (CLK, LD, RESET, PRB27, PRB28, PRB28not 
DFlipFlop port map (CLK, LD, RESET, PRB28, PRB29, PRB29not 
DFlipFlop port map (CLK, LD, RESET, PRB29, PRB30, PRB30not 
DFlipFlop port map (CLK, LD, RESET, PRB30, PRB31, PRB3lnot 
OneBin port map (DRFM1, PhaseInc0O, Gain0O, URBO, UNP, PRB, 
tl, PSVoutl, Q1, I1, OQ, I, ODVout0, PSVout0O, DREFMO, LK) ; 
OneBin port map (DRFM2, PhaseIncl, Gainl, URB1, UNP, PRB, 
t2, PSVout2, Q2, 12, Q1, Il, ODVoutl, PSVoutl, DRFM1, CLK); 
OneBin port map (DRFM3, PhaseInc2, Gain2, URB2, UNP, PRB, 
t3, PSVout3, 03, 13, 02, I2, ODVout2, PSVout2, DRFM2, CLK); 
OneBin port map (DRFM4, PhaseInc3, Gain3, URB3, UNP, PRB, 
t4, PSVout4, Q4, 14, Q3, 13, ODVout3, PSVout3, DREFM3, CLK); 
OneBin port map (DRFM5, PhaseInc4, Gain4, URB4, UNP, PRB1, 
t5, PSVout5, Q5, 15, Q4, 14, ODVout4, PSVout4, DREM4, CLK); 
OneBin port map (DRFM6, PhaseInc5, Gain5, URB5, UNP, PRBI1, 
t6, PSVout6, Q6, 16, Q5, 15, ODVout5, PSVout5, DRFM5, CLK); 
OneBin port map (DRFM7, PhaseInc6, Gain6, URB6, UNP, PRBI1, 
t7, PSVout7, Q7, I7, Q6, 16, ODVout6, PSVout6, DREM6, CLK); 
OneBin port map (DRFM8, PhaseInc7, Gain?7, URB7, UNP, PRB1, 
t8, PSVout8, Q8, 18, Q7, I7, ODVout7, PSVout7, DREM7, CLK); 
OneBin port map (DRFM9, PhaseInc8, Gain8, URB8, UNP, PRB2, 
t9, PSVout9, Q9, 19, Q8, 18, ODVouts8, PSVout8, DRFM8, CLK); 
OneBin port map (DRFM10, PhaseInc9, Gain9, URB9, UNP, PRB2, 
t10, PSVout10, 010, 110, Q9, 19, ODVout9, PSVout9, DRFM9, Cl 
OneBin port map (DRFM11, PhaseIncl0, Gainl0, URB10, UNP, 
tll, PSVoutll, Q11, I11, 910, I10, ODVout10, PSVout10, DRFM1 
OneBin port map (DRFM12, PhaseIncll, Gainll, URB11, UNP, 
t12, PSVoutl2, Q12, 112, Q11, I11, ODVoutll, PSVoutil, DRFM1 
OneBin port map (DRFM13, PhaseIncl2, Gainl2, URB12, UNP, E 
t13, PSVout13, 913, 113, Q12, 112, ODVout12, PSVout12, DRFM12, 
OneBin port map (DRFM14, PhaseIncl13, Gainl3, URB13, UNP, E 
t14, PSVoutl14, Q14, 114, Q13, 113, ODVout13, PSVout13, DRFM13, 
OneBin port map (DRFM15, PhaseIncl14, Gainl4, URB14, UNP, E 
t15, PSVout15, Q15, 115, Q14, 114, ODVout14, PSVout14, DRFM14, 
OneBin port map (DRFM16, PhaseInc15, Gainl5, URB15, UNP, E 
tl6, PSVoutl6, Q16, 116, Q15, 115, ODVout15, PSVout15, DRFM15, 
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OneBin port map (DRFM17, PhaseIncl6, Gainl6, URB16, UNP, PRB4, 
t17, PSVout17, Q17, 117, Q16, 116, ODVout16, PSVout16, DRFM16, 


OneBin port map (DRFM18, PhaseIncl7, Gainl7, URB17, UNP, PRB4, 
t18, PSVout18, O18, 118, Q17, 117, ODVout17, PSVout17, DRFM17, 


OneBin port map (DRFM19, PhaseIncl18, Gainl8, URB18, UNP, PRB4, 
t19, PSVoutl19, Q19, 119, Q18, 118, ODVout18, PSVout18, DRFM18, 





OneBin port map (DRFM20, PhaseIncl9, Gainl9, URB19, UNP, PRB4, 
t20, PSVout20, Q20, 120, Q19, 119, ODVout19, PSVout19, DRFM19, 


OneBin port map (DRFM21, PhaseInc20, Gain20, URB20, UNP, PRB5, 
t21, PSVout21, 021, 121, 020, 120, ODVout20, PSVout20, DRFM20, 





OneBin port map (DRFM22, PhaseInc21, Gain21, URB21, UNP, PRB5, 
t22, PSVout22, Q22, 122, Q21, 121, ODVout21, PSVout21, DRFM21, 

















OneBin port map (DRFM23, PhaseInc22, Gain22, URB22, UNP, PRB5, 
t23, PSVout23, Q23, 123, Q22, 122, ODVout22, PSVout22, DRFM22, 





OneBin port map (DRFM24, PhaseInc23, Gain23, URB23, UNP, PRB5, 
t24, PSVout24, O24, 124, Q23, 123, ODVout23, PSVout23, DRFM23, 


OneBin port map (DRFM25, PhaseInc24, Gain24, URB24, UNP, PRB6, 
t25, PSVout25, O25, 125, Q24, 124, ODVout24, PSVout24, DRFM24, 


OneBin port map (DRFM26, PhaseInc25, Gain25, URB25, UNP, PRB6, 
t26, PSVout26, 026, 126, 025, 125, ODVout25, PSVout25, DRFM25, 





OneBin port map (DRFM27, PhaseInc26, Gain26, URB26, UNP, PRB6, 
t27, PSVout27, Q27, I27, Q26, 126, ODVout26, PSVout26, DRFM26, 





OneBin port map (DRFM28, PhaseInc27, Gain27, URB27, UNP, PRB6, 
t28, PSVout28, Q28, 128, Q27, I27, ODVout27, PSVout27, DRFM27, 











OneBin port map (DRFM29, PhaseInc28, Gain28, URB28, UNP, PRB7, 
t29, PSVout29, Q29, 129, Q28, 128, ODVout28, PSVout28, DRFM28, 


OneBin port map (DRFM30, PhaseInc29, Gain29, URB29, UNP, PRB7, 
t30, PSVout30, Q30, 130, 029, 129, ODVout29, PSVout29, DRFM29, 


OneBin port map (DRFM31, PhaseInc30, Gain30, URB30, UNP, PRB7, 
t31, PSVout31, O31, 131, Q30, 130, ODVout30, PSVout30, DRFM30, 


OneBin port map (DRFM32, PhaseInc31, Gain31, URB31, UNP, PRB7, 
t32, PSVout32, O32, 132, Q31, 131, ODVout31, PSVout31, DRFM31, 


OneBin port map (DRFM33, PhaseInc32, Gain32, URB32, UNP, PRB8, 
t33, PSVout33, 033, 133, 032, 132, ODVout32, PSVout32, DRFM32, 


OneBin port map (DRFM34, PhaseInc33, Gain33, URB33, UNP, PRB8, 
t34, PSVout34, 034, 134, Q33, 133, ODVout33, PSVout33, DRFM33, 


















































OneBin port map (DRFM35, PhaseInc34, Gain34, URB34, UNP, PRB8, 
t35, PSVout35, 035, 135, 034, 134, ODVout34, PSVout34, DRFM34, 
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5: OneBin port map (DRFM36, PhaseInc35, Gain35, URB35, UNP, PRB8, 
ut36, PSVout36, Q36, 136, Q35, 135, ODVout35, PSVout35, DRFM35, 


6: OneBin port map (DRFM37, PhaseInc36, Gain36, URB36, UNP, PRB9, 
ut37, PSVout37, Q37, 137, Q36, 136, ODVout36, PSVout36, DRFM36, 


K , 
IN37: OneBin port E 
ut38, PSVout38, 038, 138, Q37, 137, ODVout37, PSVout37, DREFM37, 


K , 
IN38: OneBin port map (DRFM39, PhaseInc38, Gain38, URB38, UNP, PRB9, 
ut39, PSVout39, 039, 139, Q38, 138, ODVout38, PSVout38, DRFM38, 























DV 

LK r 

IN39: OneBin port map (DRFM40, PhaseInc39, Gain39, URB39, UNP, PRB9, 
DVout40, PSVout40, 040, 140, Q39, 139, ODVout39, PSVout39, DREFM39, 

LK ri 

IN40: OneBin port map (DRFM41, PhaseInc40, Gain40, URB40, UNP, PRB1O, 
DVout41, PSVout41, Q41, 141, Q40, 140, ODVout40, PSVout40, DREFM4O, 

LK ra 

IN41: OneBin port map (DRFM42, PhaseInc41, Gain41, URB41, UNP, PRB1O, 
DVout42, PSVout42, Q42, 142, Q41, 141, ODVout41, PSVout41, DRFM41, 

LK 7 

IN42: OneBin port map (DRFM43, PhaseInc42, Gain42, URB42, UNP, PRB1O, 
DVout43, PSVout43, 043, 143, Q42, 142, ODVout42, PSVout42, DREM42, 


3: OneBin port map (DRFM44, PhaseInc43, Gain43, URB43, UNP, PRB1O, 
ut44, PSVout44, Q44, 144, Q43, 143, ODVout43, PSVout43, DRFM43, 


( 


: OneBin port map (DRFM45, PhaseInc44, Gain44, URB44, UNP, PRBI11, 
ut45, PSVout45, Q45, 145, Q44, 144, ODVout44, PSVout44, DRFM44, 


( 


5: OneBin port map (DRFM46, PhaseInc45, Gain45, URB45, UNP, PRB11, 
ut46, PSVout46, Q46, 146, 045, 145, ODVout45, PSVout45, DRFM45, 


( 


6: OneBin port map (DRFM47, PhaseInc46, Gain46, URB46, UNP, PRBI11, 
ut47, PSVout47, Q47, 147, Q46, 146, ODVout46, PSVout46, DRFM46, 























: OneBin port map (DRFM48, PhaseInc47, Gain47, URB47, UNP, PRB11, 
ut48, PSVout48, Q48, 148, Q47, 147, ODVout47, PSVout47, DRFM47, 





: OneBin port map (DRFM49, PhaseInc48, Gain48, URB48, UNP, PRB12, 
ut49, PSVout49, 049, 149, 048, 148, ODVout48, PSVout48, DRFM48, 


























9: OneBin port map (DRFM50, PhaseInc49, Gain49, URB49, UNP, PRB12, 
ut50, PSVout50, Q50, 150, 049, 149, ODVout49, PSVout49, DRFM49, 

















O: OneBin port map (DRFM51, PhaseInc50, Gain50, URB50, UNP, PRB12, 
ut51, PSVout51, O51, 151, 950, 150, ODVout50, PSVout50, DRFM50, 


1: OneBin port map (DRFM52, PhaseInc51l, Gain51, URB51, UNP, PRB12, 
ut52, PSVout52, Q52, 152, Q51, 151, ODVout5l, PSVout51l, DRFM51, 


2: OneBin port map (DRFM53, PhaseInc52, Gain52, URB52, UNP, PRB13, 
ut53, PSVout53, 053, 153, Q52, 152, ODVout52, PSVout52, DRFM52, 





















































3: OneBin port map (DRFM54, PhaseInc53, Gain53, URB53, UNP, PRB13, 
out54, PSVout54, 954, 154, 953, 153, ODVout53, PSVout53, DRFM53, 
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ct 
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ct 
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OneBin port 
t66, PSVout66, 








OneBin por 
t67, PSVout67, 


t 
ct 


t 
ct 


OneBin por 
t68, PSVout68, 
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Q72, 
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I55, 


PhaseInc5 
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LOT; 


158, 


PhaseInc5 


159%, 


160, 


Tol, 


162, 


163, 


164, 


165, 


PhaseInc6 


166, 


167, 


168, 
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169, 


170, 


Pd, 


V2; 
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PhaseInc54, 
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OneBin port 
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OneBin port map (DRFM85, PhaseInc84, Gain84, 








Ole 


OneBin port map (DRFM86, PhaseInc85, Gain8g5, 


Oy 


OneBin port map (DRFM87, PhaseInc86, Gain86, 


~] ve 
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oe 
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t74, PSVout74, O74, 174, O73, 173, ODVout73, PSVo 


t75, PSVout75, O75, 175, Q74, 174, ODVout74, PSVo 


t76, PSVout76, Q76, 176, Q75, I75, ODVout75, PSVo 


t77, PSVout77, O77, I77, Q76, 176, ODVout76, PSVo 


t78, PSVout78, O78, 178, Q77, I77, ODVout77, PSVo 


t79, PSVout79, Q79, 179, Q78, I78, ODVout78, PSVo 





t80, PSVout80, 980, 180, Q79, I79, ODVout79, PSVo 


t81, PSVout81, Q81, 181, O80, 180, ODVout80, PSVo 


t82, PSVout82, Q82, 182, Q81, I81, ODVout81, PSVo 


t83, PSVout83, Q83, 183, Q82, I82, ODVout82, PSVo 


t84, PSVout84, O84, 184, 083, 183, ODVout83, PSVo 


t85, PSVout85, 085, 185, Q84, 184, ODVout84, PSVo 





t86, PSVout86, O86, 186, O85, 185, ODVout85, PSVo 


t87, PSVout87, O87, I87, O86, 186, ODVout86, PSVo 


t88, PSVout88, 088, 188, 087, I87, ODVout87, PSVo 


t89, PSVout89, O89, 189, O88, 188, ODVout88, PSVo 


t90, PSVout90, O90, 190, O89, 189, ODVout89, PSVo 


t91, PSVout91, O91, 191, 090, 190, ODVout90, PSVo 















































t92, PSVout92, Q92, 192, Q91, I91, ODVout91, PSVo 




















BIN92: OneBin port map (D 
ODVout93, PSVout93, Q93, 
CLK) ; 

BIN93: OneBin port map (D 
ODVout94, PSVout94, O94, 
CLK) ; 

BIN94: OneBin port map (D 
ODVout95, PSVout95, Q95, 
CLK) ; 

BIN95: OneBin port map (D 
ODVout96, PSVout96, Q96, 
CLK); 

BINY OneBin port map (D 
ODVout97, PSVout97, Q97, 
CLK) ; 

BIN97: OneBin port map (D 
ODVout98, PSVout98, Q98, 
CLK) ; 

BIN98: OneBin port map (D 
ODVout99, PSVout99, Q99, 
CLK) ; 

BINY OneBin port map (D 
ODVout100, PSVout100, Q10 
CLK); 

BIN100: OneBin port map ( 
PRB25, ODVout101, PSVoutl 
PSVout100, DRFM100, CLK); 
BIN101: OneBin port map ( 
PRB25, ODVout102, PSVoutl 
PSVout101, DRFM101, CLK); 
BIN102: OneBin port map ( 
PRB25, ODVout103, PSVoutl 
PSVout102, DRFM102, CLK); 
BIN103: OneBin port map ( 
PRB25, ODVout104, PSVoutl 
PSVout103, DRFM103, CLK); 
BIN104: OneBin port map ( 
PRB26, ODVout105, PSVoutl 
PSVout104, DRFM104, CLK); 
BIN105: OneBin port map ( 
PRB26, ODVout106, PSVoutl 
PSVout105, DRFM105, CLK); 
BIN106: OneBin port map ( 
PRB26, ODVout107, PSVoutl 
PSVout106, DRFM106, CLK); 
BIN107: OneBin port map ( 
PRB26, ODVout108, PSVoutl 
PSVout107, DRFM107, CLK); 
BIN108: OneBin port map ( 
PRB27, ODVout109, PSVoutl 
PSVout108, DRFM108, CLK); 
BIN109: OneBin port map ( 
PRB27, ODVout110, PSVoutl 
PSVout109, DRFM109, CLK); 
BIN110: OneBin port map ( 
PRB27, ODVout111, PSVoutl 
PSVout110, DRFM110, CLK); 































































































REM94, 
4, Q93, 


RFM95, 
195, Q94, 


RFM96, 
196, Q95, 


RFM97, 
197, Q96, 


RFM98, 
198, Q97, 





RFM99, 
199, Q98, 








RFM100, 
0, 1100, 


RFM101, 
1, Q101, 


RFM102, 
2, Q102, 


PhaseInc92, 


PhaseInc93, 


PhaseInc94, 


PhaseInc95, 


PhaseInc9 


PhaseInc97, 


PhaseInc98, 


PhaselInc99, 


192, ODVou 


193, ODVou 


194, ODVou 


195, ODVou 


196, O 


197, ODVou 











198, ODVou 





Q99, 199, O 
PhaseIncl100, 


I101, Q100, 


PhaseIncl0l1, 
1102, Q101, 





RFM103, 
3, Q103, 


RFM104, 
4, 0104, 





RFM105, 
Q105, 


RFM106, 
6, Q106, 


RFM107, 
Q107, 


RFM108, 
8, Q108, 


RFM109, 
9, Q109, 


RFM110, 
0, Q110, 














RFM111, 
11, Q111, 


PhaseIncl02, 
1103, 90102, 


PhaseIncl103, 
1104, 9103, 


PhaseIncl104, 
1105, 9104, 


PhaseIncl105, 
1106, 9105, 


PhaseIncl06, 
I107, Q106, 


PhaseIncl07, 
1108, Q107, 


PhaseIncl108, 
1109, 9108, 


PhaseIncl109, 
I110, 9109, 





PhaseIncl110, 
I111, 9110, 
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Gain92, 
t92, 


Gain93, 
t93, 


Gain94, 
t94, 


Gain95, 
95, 


Gain98, 
t98, 


Gain99, 
DVout99, 

















PSVou 





Gainl00, 
I100, ODVo 


Gainl0l, 
I101, ODVo 


Gainl02, 
1102, ODVo 


Gainl03, 
1103, ODVo 


Gainl04, 
1104, ODVo 


Gainl05, 
1105, ODVo 


Gainl06, 
1106, ODVo 


Gainl07, 
1107, ODVo 


Gainl08, 
1108, ODVo 


Gainl09, 
1109, ODVo 








Gain1l10, 
T1110, ODVo 





a U 





























































































































































































































BIN111: OneBin port map (DRFM112, PhaseIncll1l1, Gainlll, URB111, UNP, 
PRB27, ODVout112, PSVout112, 9112, 1112, Q111, 1111, ODVout111, 
PSVoutlll, DRFM111, CLK); 

BIN112: OneBin port map (DRFM113, PhaseIncl112, Gainl12, URB112, UNP, 
PRB28, ODVout113, PSVout113, Q113, 1113, Q112, 1112, ODVout112, 
PSVoutl12, DRFM112, CLK); 

BIN113: OneBin port map (DRFM114, PhaseIncl113, Gainl13, URB113, UNP, 
PRB28, ODVout114, PSVout114, 9114, 1114, Q113, 1113, ODVout113, 
PSVout113, DRFM113, CLK); 

BIN114: OneBin port map (DRFM115, PhaseInc114, Gainll4, URB114, UNP, 
PRB28, ODVout115, PSVout115, Q115, 1115, 9114, 1114, ODVout114, 
PSVoutl14, DRFM114, CLK); 

BIN115: OneBin port map (DRFM116, PhaseIncl115, Gainl15, URB115, UNP, 
PRB28, ODVout116, PSVout116, Q116, 1116, Q115, 1115, ODVout115, 
PSVout115, DRFM115, CLK); 

BIN116: OneBin port map (DRFM117, PhaseIncl16, Gainl1l6, URB116, UNP, 
PRB29, ODVout117, PSVout117, Q117, 1117, Q116, 1116, ODVout116, 
PSVoutl16, DRFM116, CLK); 

BIN117: OneBin port map (DRFM118, PhaseIncl17, Gainll7, URB117, UNP, 
PRB29, ODVout118, PSVout118, Q118, 1118, Q117, 1117, ODVout117, 
PSVoutl17, DRFM117, CLK); 

BIN118: OneBin port map (DRFM119, PhaseInc118, Gainl18, URB118, UNP, 
PRB29, ODVout119, PSVout119, Q119, 1119, Q118, 1118, ODVout118, 
PSVout118, DRFM118, CLK); 

BIN119: OneBin port map (DRFM120, PhaseInc119, Gainl19, URB119, UNP, 
PRB29, ODVout120, PSVout120, Q120, 1120, 9119, 1119, ODVout119, 
PSVoutl119, DRFM119, CLK); 

BIN120: OneBin port map (DRFM121, PhaseInc120, Gainl20, URB120, UNP, 
PRB30, ODVout121, PSVout121, Q121, 1121, 9120, I120, ODVout120, 
PSVout120, DRFM120, CLK); 

BIN121: OneBin port map (DRFM122, PhaseIncl121, Gainl21, URB121, UNP, 
PRB30, ODVout122, PSVoutl22, Q122, 1122, Q121, 1121, ODVoutl121, 
PSVoutl21, DRFM121, CLK); 

BIN122: OneBin port map (DRFM123, PhaseIncl122, Gainl22, URB122, UNP, 
PRB30, ODVout123, PSVoutl23, Q123, 1123, Q122, 1122, ODVoutl122, 
PSVoutl22, DRFM122, CLK); 

BIN123: OneBin port map (DRFM124, PhaseIncl123, Gainl23, URB123, UNP, 
PRB30, ODVout124, PSVout124, 9124, 1124, Q123, 1123, ODVout123, 
PSVout123, DRFM123, CLK); 

BIN124: OneBin port map (DRFM125, PhaseIncl124, Gainl24, URB124, UNP, 
PRB31, ODVout125, PSVout125, Q125, 1125, Q124, 1124, ODVout124, 
PSVoutl24, DRFM124, CLK); 

BIN125: OneBin port map (DRFM126, PhaseInc125, Gainl25, URB125, UNP, 
PRB31, ODVout126, PSVout126, Q126, 1126, 9125, 1125, ODVout125, 
PSVout125, DRFM125, CLK); 

BIN126: OneBin port map (DRFM127, PhaseIncl26, Gainl26, URB126, UNP, 
PRB31, ODVout127, PSVout127, Q127, 1127, 9126, I126, ODVoutl126, 
PSVout126, DRFM126, CLK); 

BIN127: OneBin port map (PhaseSamp, PhaseInc127, Gainl27, URB127, UNP, 
PRB31, ODVin, PSVin, "00000000000000000", "OO000000000000000", Q127, 
I127,0DVout127, PSVout127, DRFM127, CLK); 

-- Output Format: 

-- 63-41 | 40 | 39 | 38-22 | 21-5 | 4-0 

--unused | PSVout | ODVout | Q | I | DREM 
Output (40) <=PSVout0; 

Output (39) <=ODVout0; 
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Output 
Output 
Output 
Output 


38 downto 22) <=Q; 

21 downto 5)<=I; 

4 downto 0) <=DRFMO; 

63 downto 41)<="00000000000000000000000"; 


~~ an 


end One28Bin; 
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APPENDIX B 


This appendix contains the support files required to 


compile and execute the VHDL macros on the SRC-6E. 





A. 4 BIN .BOX FILE 


module FourBin (Input, Output, CLK) /* synthesis syn_black box */ ; 
input [63:0] Input; 
output [63:0] Output; 
input CLK; 


endmodule 


B. 4 BIN .INFO FILE 





BEGIN DEF "Four Bin" 




















MACRO = "FourBin"; 
STATEFUL = NO; 
EXTERNAL = NO; 
PIPELINED = YES; 























AATENCY = 21; 








INPUTS = 1: 
IO = INT 64 BITS (Input[63:0]) 


OUTPUTS = 1: 
OO = INT 64 BITS (Output[63:0]) 


, 


IN SIGNAL : 1 BITS "CLK"="CLOCK"; 








END_DEF 








Cc. 4 BIN .MC FILE 


/* FourBinS.me */ 
#include <libmap.h> 


#define IBANK MAX OBM SIZI 





Gl 








void FourBinS ( int n, long long a[], long long b[], int mapno) 
{ 

struct { 
long long al[IBANK]; 

} banka; 

struct { 
long long b1[IBANK]; 

} bankb; 
long long *al = banka.al; 
long long *bl = bankb.bl; 
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int i, nbytes; 
/* nbytes = n*8;*/ 
nbytes = (((n+3)/4) *4) *8; 


cm2obm_a(al, a, nbytes); 
wait server a(); 


for (i = 0; i < n; itt) { 
Four Bin(al[i], &bl[il); 





} 


obm2cm_b (b, bl, nbytes); 
wait server b(); 


D. 4 BIN .C FILE 


/* main.c */ 

#include <stdio.h> 
#include <sys/types.h> 
#include <libmap.h> 





#define SAMPLE MAX 500000 /* Maximum number of phase samples. */ 
#define PADDING 17 /* number of padding sets before and after the sam- 
ples */ 


void FourBinS(); 
void *Cache Aligned Allocate (); 
void Cache Aligned Free(); 


int main () { 
int i, nmap, mapnum, numofsamps, nbytes; 
short phzsampdat [SAMPLE MAX], dummysample; 
FILE *fileptr; 
long 10, Q0, OtherBinDataSIN, OtherBinDataCOS; 
char phzincdat[16], ampscaldat[16], URB[16]; 
char PRB, UNP, PSVin, ODVin, ODVout0, PSVout0, DRFMO, binnumber; 
long long temp, binprogram; 
long long* dataa; 
long long* datab; 


T. 








/* Timing variables. */ 
double tstart, tend, tcume, ttotal; 
extern double second(); 


/* initialization */ 


tstart = second(); 
mapnum = 0; 
nmap = 1; 


numofsamps=0; 
dummysample=0; 


/* Read in phase increment values. */ 
if ((fileptr = fopen("datafiles/phzinc.txt", "r")) == NULL) 
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"\n\nTERMINAL 





fprintf(stderr, 


FAULT: 





found.\n\n"); 
binnumber O; 
while (fscanf(fileptr, " 
{ 


oy 


6X 
binnumbert+t; 

} 

fclose(fileptr); 


/* Read in amplitude scaling values */ 





éphzincdat [binnumber] ) 


'= EO 
. a 











if ((fileptr = fopen("datafiles/ampscal.txt", "r")) == NU 
fprintf(stderr, "\n\nTERMINAL FAULT: File ampscal. 
found. \n\n"); 
binnumber = 0; 
while (fscanf(fileptr, "Sx", &ampscaldat[binnumber]) != E 


{ 


binnumber++; 


} 
fclose(fileptr); 


/* Read in pulse phase samples */ 








if ((fileptr = fopen("datafiles/phzsamp.txt", "r")) == NUI 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzsamp. 
found. \n\n"); 
numofsamps = 0; 
while (fscanf(fileptr, "%x", &phzsampdat[numofsamps]) != 
{ 
numofsampst+t; 


} 
fclose(fileptr); 





tend = second(); 

tcume = tend - tstart; 

ttotal = tcume; 

printf ("\n Number of input samples: %d", numofsamps) ; 

printf ("\n Time for disk access of input data: %19.10f", 
tstart = second(); 
nbytes = (((numofsamps+PADDING*2+4) /4) *4) *8; 
dataa=Cache Aligned Allocate (nbytes) ; 
datab=Cache Aligned Allocate (nbytes) ; 

tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to allocate the data caches for the MAP: 

$19.10£", tcume); 
tstart = second(); 


/* pack the data as follows: 


Input: formats, cycle begins when PRB=1, 1 format per clock 
ten bits of each bin: 10 | 9-5 esr 
URB | PhaseInc|Gain| 
63-48 |47-38 |37-28 |27-18 | 17-8 | 7-3 | |} 1 | 0 
unused | bin3 | bin2 | binl | binO |sample |PSVin |UNP |PRB 
63-8 eS. | | 1 | 0 
unused |sample |PSVin |UNP |PRB 
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File phzinc.txt not 


F) 


LL) 
txt not 


OF) 





tcume) ; 


-- The first sample can be entered on clock 2 if PSVin and UNP are 
taken high 
*/ 





for (i=0; 1<16; i++) { 
URB[iJ=1;}/*set all bins to be used*/ 
for (i=0; i<PADDING; i++){/*pad the control signals before and 
after*/ 
dataa[i]=0; /*set PSVin, UNP, and PRB = 000 */ 
dataa[itnumofsamps+PADDING+1]=0; /*set PSVin, UNP, and PRB 





























































































































= 000 */ 
} 
PSVin=0; 
UNP=0; 
PRB=1; /* start the program sequence*/ 
temp=((long long) URB[3] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[3] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[3] & OxFLL); 
temp=temp<<1 ((long long) URB[2] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[2] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[2] & OxFLL); 
temp=temp<<1 ((long long) URB[1] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[1] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[1] & OxFLL); 
temp=temp<<1 ((long long) URB[0O] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[0] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[0] & OxFLL); 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 
dataa [PADDING] =temp; 
PRB=0; 
PSVin=1; /* start sample input */ 
UNP=1; /* use new programming */ 
temp=((long long) phzsampdat[0] & Ox1FLL); 
temp=temp<<1l | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[1+PADDING]=temp; 
UNP=0; 

for (1 = 1; i < numofsamps; itt) { 

temp=((long long) phzsampdat[i] & Ox1lFLL); 
temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1l | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 














dataa[i+PADDING+1]=temp; } 


tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to pack the data for transfer to MAP: %19.10f", 
tcume) ; 
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tstart = second(); 

/* allocate map to this problem */ 

if (map _allocate (nmap)) { 

fprintf (stdout, "Map allocation failed.\n"); 

exit (1); 

} 
tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 
printf ("\n Time for MAP allocation: %19.10f£", tcume); 





tstart = second(); 

/* call compute */ 

FourBinS (numofsamps+PADDING*2+1, dataa, datab, mapnum) ; 
tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time for MAP call: %19.10f", tcume); 





tstart = second(); 
/* Open output file for writing. */ 
if ((fileptr = fopen("datafiles/IandQout.txt", "w")) == NULL) 


fprintf(stderr, "\n\nTERMINAL FAULT: File 
TandQout.txt cannot be written.\n\n"); 








/* put headers in output file */ 
fprintf(fileptr, "Tout Qout ODVout PSVout DRFM\n"); 
forintt (ftleptr, “ss SSs= Sssee= SSeS esen iaRap te 





/* unpack the results and send to output*/ 

for (1 = 0; i < numofsampst+PADDING*2+1; itt) { 
DRFMO=datab[i] & Ox1FLL; 
I0=datab[i]>>5 & Ox1FFFFLL; 
Q0=datab[i]>>22 & OXx1FFFF 
ODVout0=datab[i]>>39 & Ox1LL; 
P 
£ 





Ne 














SVout0=datab[i]>>40 & Oxl1LL; 
printf(fileptr, "%05X %05X S01X S01X S02X\n", 
I0, Q0, ODVout0, PSVout0, DRFMO) ; 
} 
fclose (fileptr); 











tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to unpack results and send to output file: 
$19.10£", tcume); 


tstart = second(); 
/* free the map */ 
if (map_free (nmap)) { 


printf ("Map deallocation failed. \n"); 
exit (1); 
} 





tend = second(); 
tcume = tend - tstart; 
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ttotal = ttotal + tcume; 
printf ("\n Time to free the MAP: %19.10f£", tcume); 


tstart = second(); 


Cache Aligned Free((char *)dataa); 
Cache Aligned Free((char *)datab); 


tend = second(); 
tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to free the data arrays: %19.10f£", tcume); 
printf ("\n Total Time: %19.10f\n\n", ttotal); 





} 


E. 8 BIN .BOX FILE 


module EightBin (Input, Output, CLK) /* synthesis syn_ black box */ 
input [63:0] Input; 

output [63:0] Output; 

input CLK; 





endmodule 


F. 8 BIN .INFO FILE 





















































BEGIN DEF "Eight Bin" 
MACRO = "EightBin" 
STATEFUL = NO; 
EXTERNAL = NO; 
PIPELINED = YES; 
AATENCY = 21; 
INPUTS = lL: 





IO = INT 64 BITS (Input[63:0]) 


, 


OUTPUTS = 1: 
OO = INT 64 BITS (Output[63:0]) 


, 


IN SIGNAL : 1 BITS "CLK"="CLOCK"; 











END_DEF 





G. 8 BIN .MC FILE 


/* BightBinS.mc */ 
#include <libmap.h> 








GI 


#define IBANK MAX OBM SIZI 





void BightBinS ( int n, long long a[], long long b[], int mapno) 





struct { 
long long al[IBANK]; 
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} banka; 


struct { 
long long b1[IBANK]; 
} bankb; 
long long *al = banka.al; 
long long *bl = bankb.bl; 
int i, nbytes; 
/* nbytes = n*8;*/ 
nbytes = (((n+3)/4) *4) *8; 


cm2obm_a(al, a, nbytes); 
wait server a(); 


for (i = 0; i < n; itt) { 
Eight_Bin(al[i], &bl[i]); 








} 


obm2cm_b (b, bl, nbytes); 
wait server b(); 


H. 8 BIN .C FILE 
/* main.c */ 


#include <stdio.h> 
#include <sys/types.h> 
#include <libmap.h> 





#define SAMPLE MAX 500000 /* Maximum number of phase samples. */ 
#define PADDING 17 /* number of padding sets before and after the sam- 
ples */ 


void BightBinsS(); 
void *Cache Aligned Allocate (); 
void Cache Aligned Free(); 





int main () { 


int i, nmap, mapnum, numofsamps, nbytes; 

short phzsampdat [SAMPLE MAX], dummysample; 

FILE *fileptr; 

long 10, Q0, OtherBinDataSIN, OtherBinDataCOS; 

char phzincdat[16], ampscaldat[16], URB[16]; 

char PRB, UNP, PSVin, ODVin, ODVout0, PSVout0, DRFMO, binnumber; 
long long temp, binprogram; 

long long* dataa; 

long long* datab; 








/* Timing variables. */ 
double tstart, tend, tcume, ttotal; 
extern double second(); 


/* initialization */ 


103 


tstart = second(); 
mapnum = 0; 
nmap = 1; 


numofsamps=0; 
dummysample=0; 


/* Read in phase increment values. */ 
if ((fileptr = fopen("datafiles/phzinc.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzinc.txt not 
found. \n\n") ; 











binnumber = 0; 
while (fscanf(fileptr, "%Sx", &phzincdat[binnumber]) != EOF) 
{ 

binnumber++; 


} 
fclose(fileptr); 


/* Read in amplitude scaling values */ 
if ((fileptr = fopen("datafiles/ampscal.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File ampscal.txt not 
found. \n\n"); 











binnumber = 0; 
while (fscanf(fileptr, "%x", G&ampscaldat[binnumber]) != EOF) 
{ 

binnumber++; 


} 
fclose(fileptr); 


/* Read in pulse phase samples */ 
if ((fileptr = fopen("datafiles/phzsamp.txt", "r")) == NULL) 

fprintf(stderr, "\n\nTERMINAL FAULT: File phzsamp.txt not 

found. \n\n"); 











numofsamps = 0; 
while (fscanf(fileptr, "%Sx", &phzsampdat[numofsamps]) != EOF) 
{ 

numofsampst+t; 


} 
fclose(fileptr); 


tend = second(); 


tcume = tend - tstart; 

ttotal = tcume; 

printf ("\n Number of input samples: %d", numofsamps) ; 

printf ("\n Time for disk access of input data: %19.10f£", tcume); 
tstart = second(); 


nbytes = (((numofsamps+PADDING*2+2) /4) *4) *8; 
dataa=Cache Aligned Allocate (nbytes) ; 
datab=Cache Aligned Allocate (nbytes) ; 





tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to allocate the data caches for the MAP: 
$19.10£", tcume); 


tstart = second(); 


104 


/* pack the data as follows: 











































































































Input: formats, cycle begins when PRB=1, 1 format per clock 
ten bits of each bin: 10 | 9-5 4-1 | 
URB | PhaseInc|Gain | 
63-48 |47-38 |37-28 |27-18 | 17-8 7-3 | 2 | 1 | 0 
unused | bin3 | bin2 | binl | binO |sample |PSVin |UNP |PRB 
63-48 |47-38 |37-28 |27-18 | 17-8 T=3 | 2 [ale af 0 
unused | bin7 | bin6é | bind | bin4 |sample |PSVin |UNP |PRB 
63-8 7-3 | 2 | 1 | 0 
unused sample |PSVin |UNP |PRB 
-- The first sample can be entered on clock 3 if PSVin and UNP are 
taken high 
ay 
for (i=0; 1<16; i++) { 
URB[iJ=1;}/*set all bins to be used*/ 
for (i=0; i<PADDING; i++){/*pad the control signals before and 
after*/ 
dataa[i]=0; /*set PSVin, UNP, and PRB = 000 */ 
dataa[itnumofsamps+PADDING+2]=0; /*set PSVin, UNP, and PRB 
= 000 */ 
} 
PSVin=0; 
UNP=0; 
PRB=1; /* start the program sequence*/ 
temp=((long long) URB[3] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[3] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[3] & OxFLL); 
temp=temp<<1 ((long long) URB[2] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[2] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[2] & OxFLL); 
temp=temp<<1 ((long long) URB[1] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[1] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[1] & OxFLL); 
temp=temp<<1 ((long long) URB[O] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[0] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[0] & OxFLL); 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 
dataa [PADDING] =temp; 
PRB=0; 
temp=((long long) URB[7] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[7] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[7] & OxFLL); 
temp=temp<<1 ((long long) URB[6] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[6] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[6] & OxFLL); 
temp=temp<<1 ((long long) URB[5] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[5] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[5] & OxFLL); 
temp=temp<<1 ((long long) URB[4] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[4] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[4] & OxFLL); 











































































































temp=temp<<5 | ((long long) dummysample & Ox1FLL); 
temp=temp<<1l | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1l | ((long long) PRB & Ox1LL); 
dataa[1+PADDING]=temp; 

PSVin=1; /* start sample input */ 


UNP=1; /* use new programming */ 
temp=((long long) phzsampdat[0] & Ox1FLL); 
temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[2+PADDING]=temp; 























UNP=0; 


for (1 = 1; i < numofsamps; itt) { 

temp=((long long) phzsampdat[i] & Ox1FLL); 
temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[it+tPADDING+2]=temp; } 























tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to pack the data for transfer to MAP: $%19.10f", 
tcume) ; 


tstart = second(); 
/* allocate map to this problem */ 
if (map _allocate (nmap)) { 


fprintf (stdout, "Map allocation failed.\n"); 
exit (1); 
} 
tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 
printf ("\n Time for MAP allocation: %19.10f£", tcume); 





tstart = second(); 

/* call compute */ 

BightBinS (numofsamps+PADDING*2+2, dataa, datab, mapnum) ; 
tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time for MAP call: %19.10f", tcume); 








tstart = second(); 
/* Open output file for writing. */ 
if ((fileptr = fopen("datafiles/IandQout.txt", "w")) == NULL) 


fprintf(stderr, "\n\nTERMINAL FAULT: File 
TandQout.txt cannot be written.\n\n"); 








/* put headers in output file */ 
fprintf(fileptr, "Iout Qout ODVout PSVout DRFM\n"); 
fprintf(fileptr, "----- ----- ------ ------ ----- \n") 





/* unpack the results and send to output*/ 

for (1 = 0; i < numofsampst+PADDING*2+2; i++) { 
DRFMO=datab[i] & Ox1FLL; 
I0=datab[i]>>5 & Ox1FFFFLL; 
Q0=datab[i]>>22 & OXxX1FFFF 
ODVout0=datab[i]>>39 & Ox1LL; 
P 
£ 





Ne 














SVout0=datab[i]>>40 & Ox1LL; 
printf(fileptr, "%S05X %05X S01X S01X S02X\n", 
I0, Q0, ODVout0, PSVout0, DRFMO) ; 
} 
fclose (fileptr); 











tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to unpack results and send to output file: 
$19.10£", tcume); 


tstart = second(); 
/* free the map */ 
if (map_free (nmap)) { 


printf ("Map deallocation failed. \n"); 
exit (1); 
} 





tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to free the MAP: %19.10f£", tcume); 


tstart = second(); 


Cache Aligned Free((char *)dataa); 
Cache Aligned Free((char *)datab); 


tend = second(); 





tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to free the data arrays: %19.10f", tcume); 
printf ("\n Total Time: %19.10f\n\n", ttotal); 


} 


I. 16 BIN .BOX FILE 


module SixteenBin (Input, Output, CLK) /* synthesis syn black box */ ; 
input [63:0] Input; 
output [63:0] Output; 
input CLK; 


endmodule 


J. 16 BIN .INFO FILE 


BEGIN DEF "Sixteen Bin" 
MACRO = "SixteenBin"; 
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PIPELINED = YES; 

















INPUTS = 1: 
I0 = INT 64 BITS (Input[63:0]) 


, 


OUTPUTS = 1: 
OO = INT 64 BITS (Output[63:0]) 


, 


IN SIGNAL : 1 BITS "CLK"="CLOCK"; 














END_DEF 


K. 16 BIN .MC FILE 


/* SixteenBinS.mc */ 
#include <libmap.h> 





Gl 


#define IBANK MAX OBM SIZI 








void SixteenBinS ( int n, long long a[]J, long long b[], int mapno) 
{ 
struct { 
long long al[IBANK]; 
} banka; 
struct { 
long long b1[IBANK]; 
} bankb; 
long long *al = banka.al; 
long long *bl = bankb.bl; 
int i, nbytes; 
/* nbytes = n*8;*/ 
nbytes = (((n+3)/4) *4) *8; 


cm2obm_a(al, a, nbytes); 
wait server a(); 


for (i = 0; i <n; i++) { 
Sixteen Bin(al[i], &bl[i]); 





} 


obm2cm_b (b, bl, nbytes) ; 
wait_server b(); 


L. 16 BIN .C FILE 
/* main.c */ 
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#include <stdio.h> 
#include <sys/types.h> 
#include <libmap.h> 


#define SAMPLE MAX 500000 /* Maximum number of phase samples. */ 
#define PADDING 17 /* number of padding sets before and after the sam- 





ples */ 

void SixteenBinS (); 

void *Cache Aligned Allocate (); 
void Cache Aligned Free(); 


int main 


Cet 














int i, nmap, mapnum, numofsamps, nbytes; 
short phzsampdat [SAMPLE MAX], dummysample; 
FILE *fileptr; 
long 10, Q0, OtherBinDataSIN, OtherBinDataCOS; 
char phzincdat[16], ampscaldat[16], URB[16]; 
char UNP, PRB, PSVin, ODVin, ODVout0, PSVout0, DRFMO, binnumber; 
long long temp, binprogram; 
long long* dataa; 
long long* datab; 
/* Timing variables. */ 
double tstart, tend, tcume, ttotal; 
extern double second(); 
/* initialization */ 
tstart = second(); 
mapnum = 0; 
nmap = 1; 
numofsamps=0; 
dummysample=0; 
/* Read in phase increment values. */ 
if ((fileptr = fopen("datafiles/phzinc.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzinc.txt not 
found. \n\n"); 
binnumber = 0; 
while (fscanf(fileptr, "Sx", &phzincdat[binnumber]) != EOF) 





{ 


binnumber++; 


} 
fclose(fileptr); 


/* Read in amplitude scaling values */ 








if ((fileptr = fopen("datafiles/ampscal.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File ampscal.txt not 
found. \n\n"); 
binnumber = 0; 
while (fscanf(fileptr, "%x", S&ampscaldat[binnumber]) != EOF) 





{ 


binnumber++; 


} 
fclose(fileptr); 
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/* Read in pulse phase samples */ 














if ((fileptr = fopen("datafiles/phzsamp.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzsamp.txt not 
found. \n\n"); 
numofsamps = 0; 
while (fscanf(fileptr, "%x", &phzsampdat[numofsamps]) != EOF) 
{ 
numofsampst+t; 
} 
fclose(fileptr); 
tend = second(); 
tcume = tend - tstart; 
ttotal = tcume; 
printf ("\n Number of input samples: %d", numofsamps) ; 
printf ("\n Time for disk access of input data: %19.10f£", tcume); 
tstart = second(); 
nbytes = (((numofsamps+PADDING*2+4) /4) *4) *8; 
dataa=Cache Aligned Allocate (nbytes) ; 
datab=Cache Aligned Allocate (nbytes) ; 


tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to allocate the data caches for the MAP: 
$19.10£", tcume); 

tstart = second(); 


/* pack the data as follows: 

































































PRB 
and UNP are 


Input: formats, cycle begins when PRB=1, 1 format per clock 
ten bits of each bin: 10 | 9-5 4-1 | 
URB | PhaseInc|Gain | 

63-48 |47-38 |37-28 |27-18 17-8 71-3 2 1 
unused bin3 bin2 binl binO |sample |PSVin |UNP 
63-48 |47-38 |37-28 |27-18 17-8 71-3 2 1 
unused bin7 bin6 bind bin4 |sample |PSVin |UNP 
63-48 |47-38 |37-28 |27-18 17-8 71-3 2 i: 
unused binll| binl0| bin9 bin8 |sample |PSVin |UNP 
63-48 |47-38 |37-28 |27-18 17-8 71-3 2 1 
unused binl5| binl4| binl3| binl2|sample |PSVin |UNP 
63-8 71-3 2 1 
unused sample |PSVin |UNP 
-- The first sample can be entered on clock 5 if PSVin 
taken high 








*f 
for (i=0; 1<16; i++) { 
URB[iJ=1;}/*set all bins to be used*/ 
for (i=0; i<PADDING; i++){/*pad the control signals before and 
after*/ 
dataa[i]=0; /*set PSVin, UNP, and PRB = 000 */ 
dataa[itnumofsamps+PADDING+4]=0; /*set PSVin, UNP, and PRB 
= 000 */ 


} 


PSVin=0; 
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UNP=0; 


































































































PRB=1; /* start the program sequence*/ 
temp=((long long) URB[3] & Oxl1LL); 

temp=temp<<5 ((long long) phzincdat[3] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[3] & OxFL 
temp=temp<<1 ((long long) URB[2] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[2] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[2] & OxFL 
temp=temp<<1 ((long long) URB[1] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[1] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[1] & OxFL 
temp=temp<<1 ((long long) URB[O] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[0] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[0] & OxFL 
temp=temp<<5 ((long long) dummysample & Ox1FLL 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 

dataa [PADDING] =temp; 


PRB=0; 
temp=((long long) URB[7] & Ox1LL); 



















































































temp=temp<<5 ((long long) phzincdat[7] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[7] & OxFL 
temp=temp<<1 ((long long) URB[6] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[6] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[6] & OxFL 
temp=temp<<1 ((long long) URB[5] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[5] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[5] & OxFL 
temp=temp<<1 ((long long) URB[4] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[4] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[4] & OxFL 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 

















dataa[1+PADDING]=temp; 


temp=((long long) URB[11] & Ox1LL); 







































































temp=temp<<5 ((long long) phzincdat[11] & Ox1F 
temp=temp<<4 ((long long) ampscaldat[11] & OxF 
temp=temp<<1 ((long long) URB[10] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[10] & Ox1F 
temp=temp<<4 ((long long) ampscaldat[10] & OxF 
temp=temp<<1 ((long long) URB[9] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[9] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[9] & OxFL 
temp=temp<<1 ((long long) URB[8] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[8] & Ox1FL 
temp=temp<<4 ((long long) ampscaldat[8] & OxFL 
temp=temp<<5 ((long long) dummysample & Ox1FLL 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 























dataa[2+PADDING]=temp; 


cea 


































































































temp=((long long) URB[15] & Ox1LL); 

temp=temp<<5 ((long long) phzincdat[15] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[15] & OxFLL); 
temp=temp<<1 ((long long) URB[14] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[14] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[14] & OxFLL); 
temp=temp<<1 ((long long) URB[13] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[13] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[13] & OxFLL); 
temp=temp<<1 ((long long) URB[12] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[12] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[12] & OxFLL); 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 
dataa[3+PADDING]=temp; 

PSVin=1; /* start sample input */ 


UNP=1; /* use new programming */ 
temp=((long long) phzsampdat[0] & Ox1FLL); 
temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[4+PADDING]=temp; 























UNP=0; 

for (1 = 1; i < numofsamps; itt) { 

temp=((long long) phzsampdat[i] & Ox1lFLL); 
temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[i+PADDING+4]=temp; } 























tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to pack the data for transfer to MAP: %19.10f", 
tcume) ; 


tstart = second(); 
/* allocate map to this problem */ 
if (map _allocate (nmap)) { 


fprintf (stdout, "Map allocation failed.\n"); 
exit (1); 
} 
tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 
printf ("\n Time for MAP allocation: %19.10f£", tcume); 





tstart = second(); 
/* call compute */ 
SixteenBinS (numofsamps+PADDING*2+4, dataa, datab, mapnum) ; 
tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 
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printf ("\n Time for MA 


tstart second(); 
/* Open output file for wri 
if ((fileptr fopen ( 
fprintf(s 
TandQout.txt cannot be writ 


/* put headers in output fi 
fprintf(fileptr, "Iou 
fprintf(fileptr, "---- 





P call: 


tderr, 
ten.\n\n"); 


619.10 


* 


ing. 


"datafiles/IandQout.txt", 
ERMINAL 


"\n\nT! 





£", tcume); 


wy" 
FAULT: 


)) == NULL) 
File 





le */ 


Qout 


/* unpack the results and send to output*/ 


(i = 0; 
RFMO=datab[i] & 
O=datab[i]>>5 & 
O=datab[i]>>22 

DVout0=datab [i] 
SVout0=datab [i] 
printf (fileptr, 
tO, PSVouto, 


for 


D 
I 
Q 
O 
P 
£ 





I0, Q0, ODVou 
} 


fclose 





(fileptr); 


tend = 
tcume 
ttotal 
printf 
$19.10£", 


second(); 
tend - tstart; 
ttotal + tcume; 


( 
tcume) ; 
tstart = second(); 
/* free the map */ 
if (map free 
printf 


(1); 


(nmap)) { 


exit 


} 


tend 

tcume 
ttotal 
printf 


second(); 

tend - tstart; 
ttotal + tcume; 
("\n Time to free 


tstart second(); 


Cache Aligned F 
Cache Aligned F 


ree ((ch 
ree ((ch 
tend = 
tcume 

ttotal 
printf 
printf 


second(); 
tend - ts 
ttotal + 
'\n Time 
"\n Total Time: 


Fant; 
tcume; 





(¢ 
e 


M. 64 BIN .BOX FILE 


i < numofsamps+PADDING*2+4; 


Ox1FLL; 

OxlLFFFFLI 
& OxX1lFFFF 
>>39 & Ox1L 
>>40 & Ox1L 

"S05X S05X 


Li; 





Ne 

















DRFMO) ; 


i++) 


{ 


601X 601X 





("Map deallocation failed. 


the MAP: $%19 


ar *)dataa); 
ar *)datab); 


to free the data arrays: 


$19.10f\n\n", 
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Aa) sz 


-lOf", tcume) ; 


SLOLOL; 
ttotal); 


ODVout PSVout DRFM\n"); 


S02X\n", 


"\n Time to unpack results and send to output file: 


tcume) ; 


module SixtyFourBin (Input, Output, CLK) /* synthesis syn black box */ 
input [63:0] Input; 
output [63:0] Output; 


















































input CLK; 
endmodule 
N. 64 BIN .INFO FILE 
BEGIN DEF "SixtyFour Bin" 
MACRO = "SixtyFourBin"; 
STATEFUL = NO; 
EXTERNAL = NO; 
PIPELINED = YES; 
ATENCY = 133; 
INPUTS = 1: 


IO = INT 64 BITS (Input[63:0]) 


, 


OUTPUTS = 1: 
OO = INT 64 BITS (Output[63:0]) 


, 


IN SIGNAL : 1 BITS "CLK"="CLOCK"; 











END_DEF 





O. 64 BIN .MC FILE 


/* SixtyFourBinS.mc */ 
#include <libmap.h> 





Gl 


#define IBANK MAX OBM SIZI 





void SixtyFourBinS ( int n, long long a[]J, long long b[], int mapno) 
{ 

struct { 
long long al[IBANK]; 

} banka; 

struct { 
long long b1[IBANK]; 

} bankb; 
long long *al = banka.al; 
long long *bl = bankb.bl; 





int i, nbytes; 
/* nbytes = n*8;*/ 
nbytes = (((n+3)/4) *4) *8; 


cm2obm_a(al, a, nbytes); 
wait server a(); 
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for (i = 0; i <n; i++) { 
SixtyFour Bin(al[i], &bl[il); 





} 


obm2cm_b (b, bl, nbytes) ; 
wait server b(); 


P. 64 BIN .C FILE 
/* main.c */ 

#include <stdio.h> 
#include <sys/types.h> 
#include <libmap.h> 


#define SAMPLE MAX 500000 





#define PADDING 64 /* number of padding sets before and after the 


ples */ 

void SixtyFourBinsS(); 

void *Cache Aligned Allocate (); 
void Cache Aligned Free(); 


int main () { 
int i, nmap, mapnum, numofsamps, nbytes; 


short phzsampdat [SAMPLE MAX], dummysample; 
FILE *fileptr; 








long I0, Q0, OtherBinDataSIN, OtherBinDataCOS; 


char phzincdat[64], ampscaldat[64], URB[64]; 
char UNP, PRB, PSVin, ODVin, ODVout0, PSVout0O, 
long long temp, binprogram; 

long long* dataa; 

long long* datab; 


/* Timing variables. */ 
double tstart, tend, tcume, ttotal; 


extern double second(); 


/* initialization */ 


tstart = second(); 
mapnum = 0; 
nmap = 1; 


numofsamps=0; 
dummysample=0; 


/* Read in phase increment values. */ 
if ((fileptr = fopen("datafiles/phzinc.txt", 


DRFMO, 


Wath) ) 


/* Maximum number of phase samples. 


*/ 

sam- 
binnumber; 
NULL) 


fprintf(stderr, "\n\nTERMINAL FAULT: File phzinc.txt not 








found.\n\n"); 
binnumber = 


0; 
while (fscanf(fileptr, "Sx", &phzincdat[binnumber]) != 


{ 


binnumber++; 


} 
LTS 





= 
G 
py 


EOF) 


fclose(fileptr); 


/* Read in amplitude scaling values */ 























if ((fileptr = fopen("datafiles/ampscal.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File ampscal.txt not 
found. \n\n"); 
binnumber = 0; 
while (fscanf(fileptr, "%x", G&ampscaldat[binnumber]) != EOF) 
{ 
binnumber++; 
} 
fclose(fileptr); 
/* Read in pulse phase samples */ 
if ((fileptr = fopen("datafiles/phzsamp.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzsamp.txt not 
found. \n\n"); 
numofsamps = 0; 
while (fscanf(fileptr, "%Sx", &phzsampdat[numofsamps]) != EOF) 
{ 
numofsampst+t; 
} 
fclose(fileptr); 
tend = second(); 
tcume = tend - tstart; 
ttotal = tcume; 
printf ("\n Number of input samples: %d", numofsamps) ; 
printf ("\n Time for disk access of input data: %19.10f£", tcume); 
tstart = second(); 
nbytes = (((numofsamps+PADDING*2+16) /4) *4) *8; 
dataa=Cache Aligned Allocate (nbytes) ; 
datab=Cache Aligned Allocate (nbytes) ; 
tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 
printf ("\n Time to allocate the data caches for the MAP: 
$19.10£", tcume); 
tstart = second(); 


/* pack the data as follows: 




















Input: formats, cycle begins when PRB=1, 
ten bits of each bin: 10 | 9-5 4-1 | 
URB | PhaseInc|Gain | 
63-48 |47-38 |37-28 |27-18 17-8 Tens) 
unused bin3 bin2 binl bind |sample 
63-48 |47-38 |37-28 |27-18 17-8 13. 
unused bin7 bin6 bind bin4 |sample 
63-48 |47-38 |37-28 |27-18 17-8 71-3 
unused binll| binl0| bing bin8 |sample 
63-48 |47-38 |37-28 |27-18 17-8 13. 
unused binl5| binl4| bin13| binl2|sample 
more in same format up to bin63... 
63-8 71-3 
unused sample 


























1 format per clock 


1 0 
UNP |PRB 
1 0 
UNP |PRB 
1 0 
UNP |PRB 
1 0 
UNP |PRB 
1 0 
UNP |PRB 





























-- The first sample can be entered on clock 65 if PSVin and UNP are 
taken high 
af 


for (i=0; i<64; i++) { 
URB[i]=1;}/*set all bins to be used*/ 
for (i=0; i<PADDING; i++){/*pad the control signals before and 
after*/ 
dataa[i]=0; /*set PSVin, UNP, and PRB = 000 */ 
dataa[itnumofsamps+PADDING+16]=0; /*set PSVin, UNP, and PRB 
= 000 */ 
} 
PSVin=0; 
UNP=0; 
PRB=1; /* start the program sequence*/ 


for (i1=0;1<64;1=1+4) { 
if (i>0) PRB=0; 


temp=((long long) URB[it+3] & Ox1LL); 



















































































temp=temp<<5 ((long long) phzincdat[it+3] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[it+3] & OxFLL); 
temp=temp<<1 ((long long) URB[it+2] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[it2] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[it2] & OxFLL); 
temp=temp<<1 ((long long) URB[it+1] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[itl] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[itl] & OxFLL); 
temp=temp<<1 ((long long) URB[i] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[i] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[i] & OxFLL); 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 























dataa [PADDING+i/4]=temp; } 


PSVin=1; /* start sample input */ 
UNP=1; /* use new programming */ 
temp=((long long) phzsampdat[0] & Ox1F 


wa 
Ne 








temp=temp<<l1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Ox1LL); 
temp=temp<<1 | ((long long) PRB & Ox1LL); 
dataa[16+PADDING]=temp; 

















UNP=0; 

for (1 = 1; i < numofsamps; itt) { 
temp=((long long) phzsampdat[i] & Ox1F 
temp=temp<<1 | ((long long) PSVin & Ox1LL); 
temp=temp<<1 | ((long long) UNP & Oxl 
temp=temp<<1 | ((long long) PRB & Oxl 
dataa[i+PADDING+16]=temp; } 


wa 
Ne 








wa 
‘Ne 











ww 
Ne 





tend = second(); 


LT 


tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to pack the data for transfer to MAP: $%19.10f", 
tcume) ; 


tstart = second(); 


/* allocate map to this problem */ 
if (map _allocate (nmap)) { 
fprintf (stdout, "Map allocation failed.\n"); 
exit (1); 
} 





tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time for MAP allocation: %19.10f£", tcume); 


tstart = second(); 

/* call compute */ 

SixtyFourBinS (numofsamps+PADDING*2+16, dataa, datab, mapnum) ; 
tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time for MAP call: %19.10f", tcume); 





tstart = second(); 
/* Open output file for writing. */ 
if ((fileptr = fopen("datafiles/IandQout.txt", "w")) == NULL) 





fprintf(stderr, "\n\nTERMINAL FAULT: File 
TandQout.txt cannot be written.\n\n"); 





/* put headers in output file */ 
fprintf(fileptr, "Iout Qout ODVout PSVout DRFM\n") ; 
foranttl (filéeptr, “=-os-(S-s4> SSeS Saas = Sess Wao 





/* unpack the results and send to output*/ 

for (1 = 0; i < numofsampst+PADDING*2+16; itt) { 
DRFMO=datab[i] & Ox1FLL; 
I0=datab[i]>>5 & Ox1FFFFLL; 
Q0=datab[i]>>22 & OxX1FFFF 
ODVout0=datab[i]>>39 & Ox1LL; 
P 
£ 





‘Ne 














SVout0=datab[i]>>40 & Ox1LL; 
printf(fileptr, "%S05X %05xX S01X $01X S02X\n", 
I0, Q0, ODVout0, PSVout0, DRFMO) ; 
} 
fclose (fileptr); 











tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time to unpack results and send to output file: 
$19.10£", tcume); 


tstart = second(); 
/* free the map */ 
if (map_free (nmap)) { 
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} 


Q. 


module One28Bin (Input, Output, CLK) /* synthesis syn black box */ 


printf ("Map deallocation failed. \n"); 





exit (1); 
} 


tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 


printf ("\n Time to free the MAP: %19.10f£", tcume); 


tstart = second(); 


Cache Aligned Free((char *)dataa); 
Cache Aligned Free((char *)datab); 


tend = second(); 
tcume = tend - tstart; 
ttotal ttotal + tcume; 





printf ("\n Time to free the data arrays: %19.10f", 
(7 


printf 


128 BIN .BOX FILE 


input [63:0] Input; 
output [63:0] Output; 
input CLK; 


endmodule 


128 BIN .INFO FILE 















































BEGIN DEF "One28 Bin" 
MACRO = "One28Bin"; 
STATEFUL = NO; 
EXTERNAL = NO; 
PIPELINED = YES; 
ATENCY = 261; 
INPUTS = 1: 





IO = INT 64 BITS (Input[63:0]) 


OUTPUTS = 1: 
OO = INT 64 BITS (Output[63:0]) 


, 


IN SIGNAL : 1 BITS "CLK"="CLOCK"; 














Ss. 
/* 


END_DEF 


128 BIN .MC FILE 


One28BinS.mc */ 


#include <libmap.h> 


#define IBANK MAX OBM SIZI 





Gl 
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"\n Total Time: %19.10f£\n\n", 


ttotal); 


tcume) ; 


void One28BinS ( int n, long long a[], long long b[], int mapno) 





struct { 
long long al[IBANK]; 
} banka; 
struct { 
long long b1[IBANK]; 
} bankb; 
long long *al = banka.al; 
long long *bl = bankb.bl; 





int i, nbytes; 
/* nbytes = n*8;*/ 
nbytes = (((n+3)/4) *4) *8; 


cm2obm_a(al, a, nbytes); 
wait server a(); 


for 


} 


(i = 0; i <n; itt) { 





One28 Bin(al[i], &bl[i]); 


obm2cm_b (b, bl, nbytes); 
wait server b(); 


T. 128 BIN .C FILE 


/* main.c */ 


#include <stdio.h> 
#include <sys/types.h> 
#include <libmap.h> 


#define SAMPLE MAX 500000 /* Maximum number of phase samples. */ 
#define PADDING 128 /* number of padding sets before and after the sam- 


ples */ 





void One28BinS(); 
void *Cache Aligned Allocate (); 
void Cache Aligned Free(); 


int main () 


{ 


int i, nmap, mapnum, numofsamps, nbytes; 
short phzsampdat [SAMPLE MAX], dummysample; 


FILE 
long 
char 
char 
long 
long 
long 








*fileptr; 

10, QO, OtherBinDataSIN, OtherBinDataCOS; 
phzincdat[128], ampscaldat[128], URB[128]; 

UNP, PRB, PSVin, ODVin, ODVout0, PSVout0, DRFMO, 
long temp, binprogram; 

long* dataa; 

long* datab; 
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binnumber; 


/* Timing variables. */ 
double tstart, tend, tcume, 
extern double second(); 


ttotal; 


/* initialization */ 
tstart = second(); 
mapnum = 0; 
nmap = 1; 
numofsamps=0; 
dummysample=0; 
/* Read in phase increment values. */ 
if ((fileptr = 





fopen ("datafiles/phzinc.txt", 


ee) ) NULL) 








fprintf(stderr, "\n\nTERMINAL FAULT: File phzinc.txt not 
found. \n\n"); 
binnumber = 0; 
while (fscanf(fileptr, "Sx", &phzincdat[binnumber]) != EOF) 
{ 
binnumbert++; 
} 
fclose(fileptr); 
/* Read in amplitude scaling values */ 
if ((fileptr = fopen("datafiles/ampscal.txt", "r")) == NULL) 


"\n\nTERMINAL 





fprintf(stderr, 


FAULT: 


File ampscal.txt not 





found.\n\n"); 

















binnumber = 0; 
while (fscanf(fileptr, "%x", G&ampscaldat[binnumber]) != EOF) 
{ 
binnumber++; 
} 
fclose(fileptr); 
/* Read in pulse phase samples */ 
if ((fileptr = fopen("datafiles/phzsamp.txt", "r")) == NULL) 
fprintf(stderr, "\n\nTERMINAL FAULT: File phzsamp.txt not 
found. \n\n"); 
numofsamps = 0; 
while (fscanf(fileptr, "%Sx", &phzsampdat[numofsamps]) != EOF) 
{ 
numofsampst+t; 
} 
fclose(fileptr); 
tend = second(); 
tcume = tend - tstart; 
ttotal = tcume; 
printf ("\n Number of input samples: %d", numofsamps) ; 
printf ("\n Time for disk access of input data: %19.10f£", tcume); 
tstart = second(); 
nbytes = (((numofsamps+PADDING*2+32) /4) *4) *8; 
dataa=Cache Aligned Allocate (nbytes) ; 
datab=Cache Aligned Allocate (nbytes) ; 


tend = second(); 
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tcume 

ttotal 

printf 
$19.10£", 


tstart 


second(); 


tend - tstart; 
ttotal + tcume; 
("\n Time to allocate the data caches for the MAP: 

tcume) ; 


/* pack the data as follows: 






























































































































































Input: formats, cycle begins when PRB=1, 1 format per clock 
ten bits of each bin: 10 | 9-5 4-1 | 
URB | PhaseInc|Gain | 
63-48 |47-38 |37-28 |27-18 17-8 713 2 1 0 
unused bin3 bin2 binl binO |sample |PSVin |UNP |PRB 
63-48 |47-38 |37-28 |27-18 17-8 T=3 2 1 0 
unused bin7 bin6 bind bin4 |sample |PSVin |UNP |PRB 
63-48 |47-38 |37-28 |27-18 17-8 7-3 2 1 0 
unused binll| binl0| bin9 bin8 |sample |PSVin |UNP |PRB 
63-48 |47-38 |37-28 |27-18 17-8 eae) 2 1 0 
unused binl5| binl4| bin13| binl2|sample |PSVin |UNP |PRB 
more in same format up to binl27... 
63-8 T=3 2 1 0 
unused sample |PSVin |UNP |PRB 
-- The first sample can be entered on clock 129 if PSVin and UNP are 
taken high 
x 
for (i=0; 1<128; i++) { 
URB[iJ=1;}/*set all bins to be used*/ 
for (i=0; i<PADDING; i++){/*pad the control signals before and 
after*/ 
dataa[i]=0; /*set PSVin, UNP, and PRB = 000 */ 
dataa[itnumofsamps+PADDING+32]=0; /*set PSVin, UNP, and PRB 
= 000 */ 
} 
PSVin=0; 
UNP=0; 
PRB=1; /* start the program sequence*/ 
for (1=0;1<128;1i=i+4) { 
if (i>0) PRB=0; 
temp=((long long) URB[it+3] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[it+3] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[it+3] & OxFLL); 
temp=temp<<1 ((long long) URB[it+2] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[it2] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[it2] & OxFLL); 
temp=temp<<1 ((long long) URB[it+1l] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[itl] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[it1l] & OxFLL); 
temp=temp<<1 ((long long) URB[i] & Ox1LL); 
temp=temp<<5 ((long long) phzincdat[i] & Ox1FLL); 
temp=temp<<4 ((long long) ampscaldat[i] & OxFLL); 
temp=temp<<5 ((long long) dummysample & Ox1FLL); 
temp=temp<<1 ((long long) PSVin & Ox1LL); 
temp=temp<<1 ((long long) UNP & Ox1LL); 
temp=temp<<1 ((long long) PRB & Ox1LL); 


























dataa [PADDING+i/4]=temp; } 


PSVin=1; /* start sample input */ 
UNP=1; /* use new programming */ 
temp=((long long) phzsampdat[0] & Ox1F 


wa 
Ne 








long long) PSVin & Ox1LL); 
long long) UNP & Oxl 


temp=temp<<1 ( ( 
(( 
((long long) PRB & Oxl 
G] 


| 
temp=temp<<1 | 
temp=temp<<1 | 
dataa[32+PADDIN 


wa 
‘Ne 











wa 
‘Ne 








=temp; 
UNP=0; 
for (1 = 1; i < numofsamps; itt) { 





temp=((long long) phzsampdat[i] & Ox1F 
temp=temp<<1l | ( 


long long) PSVin & Oxl1l 











( 
temp=temp<<1 | ((long long) UNP & Oxl 
temp=temp<<1 | ((long long) PRB & Oxl 








dataa[i+PADDING+32]=temp; } 


tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 


wa 
Ne 


printf ("\n Time to pack the data for transfer to MAP: 


tcume) ; 
tstart = second(); 


/* allocate map to this problem */ 
if (map _allocate (nmap)) { 


fprintf (stdout, "Map allocation failed.\n"); 





exit (1); 
} 


tend = second(); 

tcume = tend - tstart; 

ttotal = ttotal + tcume; 

printf ("\n Time for MAP allocation: %19.10f", 


tstart = second(); 
/* call compute */ 


tend = second(); 
tcume = tend - tstart; 
ttotal = ttotal + tcume; 





tstart = second(); 
/* Open output file for writing. */ 


if ((fileptr = fopen("datafiles/IandQout.txt", 





tcume) ; 


One28BinS (numofsamps+PADDING*2+32, dataa, datab, 


printf ("\n Time for MAP call: %19.10f", tcume); 


"wll) ) 


619.10£", 


mapnum) ; 


== NULL) 


File 





fprintf(stderr, "\n\nTERMINAL FAULT: 


TandQout.txt cannot be written.\n\n"); 


/* put headers in output file */ 





fprintf(fileptr, "Iout Qout ODVout PSVout DRFM\n") ; 
fprintl(fileptry, "s=s4= ssnsS SS pso=, Sacer Ssasssr= 


/* unpack the results and send to output*/ 


for (i = 0; 
RFMO=datab [i] 


O=da 


& Ox1FLL; 
tab[i]>>5 & OxlFFFFLL; 
tab[i]>>22 & Ox1FFFF 
tO=datab[i]>>39 & Ox1L 





‘Ne 





DVou 


i < numofsamps+PADDING*2+32; 


i++) { 











SVout0=datab[i]>>40 & Ox1L 





D 
L 
Q0=da 
O 
P 
is 


prin 
tO, 


tf(fileptr, "%05X %05xX 
PSVout0O, DRFMO); 





I0, Q0, 
} 


fclose 


ODVou 





(fileptr); 


tend 
tcume 
ttotal 
printf 
S19.10£" ; 


second(); 
tend - tstart; 
ttotal + tcume; 


( 
tcume) ; 
tstart = second(); 
/* free the map */ 
if (map free 
printf 


(nmap)) { 


"\n Time to unpack results and send 


("Map deallocation failed. 


601X 601X 


to output 


\n"); 





exit (1); 


} 


tend 

tcume 
ttotal 
printf 


second(); 

tend - tstart; 

ttotal + tcume; 

("\n Time to free the MAP: 


tstart 


second(); 


ree((char *)dataa); 
ree ((char *)datab); 


Cache Aligned F 
Cache Aligned F 


tend 

tcume 
ttotal 
printf 
printf 


second(); 
tend - ts 
= ttotal + 
("\n Time 
("\n Total Time: 


tart; 
tcume; 





$19.10f\n\n" 
} 


U. EXAMPLE MAKEFILE (TAKEN FROM 





User defines FILES, 


MAPFILES, 


and BIN 











it 
it 
it 
EF 


ILE 





main.c 





5 





FourBinS.mc 


FourBinTest 








User defined macros info supplied here 


SH He He HE 


(Leave commented out if not used) 
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x 
io) 


to free the data arrays: 


19.10£", tcume); 


$19.10£", 
, -tEtotal); 


4 BINS) 


here 


S02X\n", 


file: 


tcume) ; 





# 








MACROS = my_macro/fourbin.vhd 

MY BLKBOX = my _macro/fourbin.box 

MY NGO DIR = my macro 

MY INFO = my macro/fourbin.info 
# 

# User supplied MCC and MFTN flags 

# 


MY MCCFLAGS = 
MY MFTNFLAGS = 





# 
# User supplied flags for C & Fortran compilers 


# 














CC = icc # icc for Intel cc for Gnu 
FC = ifc # ifc for Intel £77 for Gnu 

LD = ifc # ifc for Intel cc for Gnu 

MY CFLAGS 

MY FFLAGS = 

# 

# No modifications are required below 

# 





MAKIN ?= $(MC_ROOT) /opt/srcci/comp/lib/AppRules.make 
include S (MAKIN) 


Vv. EXAMPLE PHASE SAMPLE INPUT FILE (32 INPUTS) 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
OA 
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rN FP DN SF 


Y. 


EXAMPLE RANGE BIN GAIN INPUT FILE (4 BINS) 


EXAMPLE RANGE BIN PHASE ROTATION INPUT FILE (4 BINS) 


EXAMPLE SCREEN OUTPUT (4 BINS WITH 32 INPUTS) 


Number of input samples: 32 


Tim 
Tim 
Tim 
Tim 
Tim 
Tim 


Tim 





Tim 


e 


=] 


e 


J 


for disk access of input data: 


0.0002677690 


to allocate the data caches for the MAP: 


to pack the data for transfer to MAP: 


for MAP allocation: 


for MAP call: 


0.5351942658 


0.0960569127 


to unpack results and send to output file: 


to free the MAP: 


to free the data arrays: 


1.0062198973 
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0.0000037104 


0.0000318932 
0.0000015922 


0.0005680144 


Total Time: 1.6383440550 


Z. EXAMPLE OUTPUT DATA FILE (4 BINS WITH 32 INPUTS) 


Tout Qout ODVout PSVout DRFM 






























































00000 00000 0 1 00 
00000 00000 0 1 01 
00000 00000 0 1 02 
00000 00000 0 dl 03 
OOOOF OFFFC 1 1 04 
00007 OFFFE 1 dl 05 
00016 OFFFB 1 1 06 
OOOOE OFFFF 1 1 07 
OOOOE OO0001 1 1 08 
0000D 00005 1 1 09 
0000B 00007 1 1 OA 
OOOOA OQOOO0A 1 1 OB 
00007 O000C 1 1 OC 
00005 O000D 1 1 OD 
00002 OO0O00E 1 1 OE 
OFFFE OOOOE 1 1 OF 
OFFFB OOOOE 1 1 10 
OFFF7 O000D 1 1 11 
OFFF5 O000B 1 1 12 
OFFF2 QOOO0A 1 1 13 
OFFFO 00007 1 1 14 
OFFEF 00005 1 1 15 
OFFEE 00002 1 il 16 
OFFEE OFFFE 1 ih 17 
OFFEE OFFFB 1 1 18 
OFFEF OFFF7 1 1 19 
OFFF1 OFFF5 1 1 1A 
OFFF2 OFFF2 1 1 1B 
OFFFO OFFFO 1 1 1C 
OFFF8 OFFEF 1 1 1D 
OFFFB OFFEE 1 1 1B 
OFFFF OFFEE 1 1 1F 














ear 


00001 
00005 
00007 
OOO0A 
OFFFD 
00006 
OFFE8 
00000 
00000 
00000 








OFFEE 








OFFEF 
OFFF1 
OFFF2 
OFFFA 
OFFFA 
00000 
00000 
00000 
00000 


COCO OF RP FP FP BP RP EB 


OO OO Ee OO KE OO Oe OD. 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
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